5. росток появляется из земли, начинает расти, прибавляя в росте 40% от роста в предыдущий день. нормальный рост равен 32см. успеет ли росток за 13 дней набрать нормальный рост, если в первый день его высота 0,5см. если не успеет, то посчитайте, за сколько дней он вырастет до нормы.

program RastiRostok;

var h: Double; //в  этой переменной храним высоту

var i: integer; // это для счетчика дней

var s:string;

begin

i := 0;

h:=0.5;

while(h<=32) do

begin

h:= h + 0.4*h;

i:= i+1;

writeln(h:15:2);

end;

 

str(i,s);

writeln('Количество дней:'+s);

str(h:15:2,s);

writeln('Высота ростка:'+s);

 end.

В итоге успеет за 13 дней вырасти

Расклад по дням и итог

0.70
0.98
1.37
1.92
2.69
3.76
5.27
7.38
10.33
14.46
20.25
28.35
39.69
Количество дней:13 Высота ростка: 39.69