program raf105;
var
b,c,let: integer;
a: real;
begin
write('Запас рыбы в пруду: ');
readln(a);
write('Ежегодный план отлова: ');
readln(b);
write('Наименьший запас: ');
readln(c);
while a >= c do
begin
let+= 1;
a:= a+a/100*15;
a-= b;
end;
writeln('Заданный план можно выдержать в течении ',let,' лет.');
end.
2.program raf105;
var a,sum,counter: integer;
begin
a:=1;
while sum<>324 do
begin
a+= 4;
sum+= a;
counter+= 1;
end;
writeln('Число слагаемых: ',counter);
end.
3.program raf105;
var a,counter: integer;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
counter+= 1;
a:= a div 10
end;
writeln('Количество цифр: ',counter);
end.
4.program raf105;
var
a: real;
let:integer;
begin
a:= 10000;
while a<20000 do
begin
let+=1;
a+= a/100*5;
end;
writeln('Сумма увеличится в 2 раза через ',let,' лет');
end.
Язык PascalABC
переведи в точку (13,13)
опусти перо
сдвинь на вектор (0,9)
сдвинь на вектор (9,0)
сдвинь на вектор (0,-9)
сдвинь на вектор (-9,0)
Объяснение:
Рассмотрим исходные смещения в задании (там часть цифр не показана):
1) сдвинь на вектор (__ ,9)
2) сдвинь на вектор (__,0)
3) сдвинь на вектор (0,__)
4) сдвинь на вектор (-9,0)
Здесь рисуются четыре стороны квадрата.
Сторона №4 -горизонтальная (т.к. игрек не меняется, только икс), и рисуется справа налево (т.к. значение икс уменьшается на 9).
Значит, расположенная напротив неё сторона №2 (тоже горизонтальная), будет рисоваться наоборот- слева направо (значение икс будет увеличиваться на 9, то есть смещение будет на (9,0) ).
Остальные две стороны (№1 и №3) очевидно что вертикальные (это понятно, ведь фигура- квадрат, в нём эти стороны перпендикулярны двум ранее рассмотренным). И это значит, что смещение по икс для них будет равно нулю (для стороны №3 это сразу указано, а для стороны №1 теперь можно записать).
Кроме того, сторона №1 рисуется снизу вверх (т.к. значение игрек увеличивается на 9).
Значит, противоположная сторона №3 будет рисоваться сверху вниз (значение игрек будет уменьшаться на 9, то есть смещение будет на (0,-9) ).
var
x, p ,y, s, n: integer;
begin
readln(x,p,y);
s:=x;
n:= 0;
while (s < y) do
begin
s := s+trunc((s*p)/100);
n:= n+1;
end;
writeln(n);
end.
Пример:
100 10 500
18