Question

Помогите пожалуйста!!!
Спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от результата предыдущего дня. Найти,через сколько дней спортсмен будет пробегать более 20 км в день?

Answer 1

Program uolt;
var s,n:real;
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s+s*0.1;
n:=n+1;
end;
writeln('через ',n,' дн. спортсмен будет пробегать более 20 км в день');
end.