Question

1.каков будет рост ребенка через год, если за месяц он подрастает на 2% по сравнению с предыдущим. рост в начале года 120 см. 2.в течение недели мама ежедневно ходила на рынок и тратила на 5 рублей больше, чем в предыдущий. написать программу, подсчитать расход за неделю, если в первый день она потратила 100 р. паскаль

Answer 1

Var
var
P, x:real;
begin
P:=120;
while P<=120 do
begin
P:=P+0.02*P;
x:=x+1;
end;
write('Ребёнок подрастёт за:',x,' ','месяцев');
end.

Answer 2

Var i:integer;
r:real;
begin
r:=120;
for i:=1 to 12 do
r:=r+r*0.02;
writeln(r:3:2);
end.

var a,i:integer;
begin
for i:=1 to 7 do
a:=a+5;
writeln(a);
end.