Meapdys
5 год назад
Написать программу в Pascal.Высота саженца 20 см. Естественный ежегодный прирост 15%. Через Как узнать сколько лет высота достигнет 500 см?
ОТВЕТЫ
Петьр
Oct 24, 2020
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 года
n: integer;
begin
h:=20; n:=0;
repeat
h:=h*1.15;
n:=n+1;
until h>=500;
writeln(n,' года');
end.
24 года
525
Смежные вопросы:
