(Написать программу) Спортсмен в 1 день пробежал 10 км, каждый день он увеличивал пробег на 10%.В какой день он пробежит 20 км?
(Написать программу) Спортсмен в 1 день пробежал 10 км, каждый день он увеличивал пробег на 10%.В какой день он пробежит 20 км?
Гость
Ответ(ы) на вопрос:
ГостьProgram Sport;
Var
s: Real;
day: Integer;
Begin
day := 1;
s := 10;
while s < 20 do
begin
day := day + 1;
s := s + (s/100)*10;
end;
WriteLn(day);
ReadLn;
End.
Не нашли ответ?
Похожие вопросы