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