Определить, через сколько часов лыжник преодолеет более 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.5 из 5
Похожие ответы