Определить, через сколько часов лыжник преодолеет более 33 км? - Pascal ABC
Формулировка задачи:
Помогите пожалуйста с задачей.
В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?
Решение задачи: «Определить, через сколько часов лыжник преодолеет более 33 км?»
textual
Листинг программы
program pr; var cout: integer; s, v0: real; begin s := 8; v0 := 8; cout := 1; repeat v0 := (v0 - v0 * 0.1); s := s + v0; cout := cout + 1; until s > 33; writeln('Через ', cout, ' часов лыжник преодолеет большее 33 км'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д