Question

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

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 года

Answer 2

Спасибо.