Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а% (5%). Начальный рост – у см (20) . Решение по Турбо Паскалю.

Ответ оставил Гость

Var
A,ae:real;
N,i:integer;

Begin
WriteLn(Введи начальный рост);
ReadLn(A);
WriteLn(Введи кол-во месяцев);
ReadLn(N);
WriteLn(Введи прирост в месац в %);
ReadLn(ae);
ae:=ae/100;
For i:= 1 to N do
A:=A*(1+ae);

WriteLn(A);
ReadLn
End.