Sпруда составляет 2000 м². из них в настоящий момент 50 м² покрыто водорослями. каждые сутки s водорослей увеличивается на 0,1 от уже занятой площади. определить через сколько дней пруд покроется водорослями.

Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
 begin
 k:=k+1;
 s:=s+0.1*s;
 end;
writeln(k);
end.

Результат:
39

Нужно решить неравенство: 50·1,1ⁿ ≥ 2000.
1,1ⁿ ≥ 40
n ≥ 38,7
n = 39
ответ: через 39 дней.