Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а%...

Question

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

Answer 1

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.

Comments

спасибо!!!