Рост ребёнка ** начало года 120 см. за месяц он подрастает ** 2 процента. Через сколько...

Question

Рост ребёнка на начало года 120 см. за месяц он подрастает на 2 процента.
Через сколько месяцев рост ребёнка превысит 150 см.
(ПОЖАЛУЙСТА решите 2 способами FOR и While).

Answer 1

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