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

Это первая.Вроде бы правильно

У тебя в ответе получится, что за 1 месяц, а надо рост

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

var i:integer;r:real;beginr:=120;for i:=1 to 12 dor:=r+r*0.02;writeln(r:3:2);end.var a,i:integer;beginfor i:=1 to 7 doa:=a+5;writeln(a);end.