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 дней вырасти

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