Написать программу в Pascal.

Высота саженца 20 см. Естественный ежегодный прирост 15%. Через сколько лет высота достигнет 500 см?

Question

Ира

5 февраля, 03:29

+3

Ответы (1)

Знаете ответ?

Серж · Answer 1

Var h: real;

n: integer;

begin

h:=20; n:=0;

repeat

h:=h*1.15;

n:=n+1;

until h>=500;

writeln (n,' года') ;

end.

24 года

Написать программу в Pascal.Высота саженца 20 см. Естественный ежегодный прирост 15%. Через сколько лет высота достигнет 500 см?