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

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

Comments

Спасибо.