Определить, через сколько часов лыжник преодолеет более 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
