Помогиет решить задачку В паскале. Пешеход идёт со скоростью 5 км/ч.С каэдым часом...

Question

Помогиет решить задачку В паскале. Пешеход идёт со скоростью 5 км/ч.С каэдым часом скорость пешехода понижается на км.Сколько пройдёт пешеход за 5 часов.

Answer 1

program test;
var speed, sum, i, hours: integer;
begin
   sum:=0;
   speed:=5;
   hours:=5;

   for i:=hours downto (hours - 5) do
   begin
      sum:=sum+speed;
      speed:=speed-1;
   end;

   writeln(sum, 'km');
   readln;
end.