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

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

Question

Полюха

5 января, 09:50

+1

Ответы (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 см?