Составить программу на языке Паскаль.

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

Question

Андроша

26 декабря, 10:34

+2

Ответы (1)

Знаете ответ?

Максима · Answer 1

Var s:real; n:integer;

begin

s:=10;

n:=1;

while s<20 do

begin

s:=s*1.1;

n:=n+1;

end;

writeln (' n = ', n) ;

end.

Результат:

n = 9