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

Question

Информатика

Викториныч

20 июня, 13:51

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

+4

Ответы (1)

Знаете ответ на вопрос?

Кантидиан · 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.