Вычеслить сумму целых чисел в диапазоне от -5 до 500 изменяющихся с шагом 5

1

Ответы и объяснения

Лучший Ответ!
2013-12-20T09:55:31+00:00
Program zadacha;
   var i,s:integer;
begin
   s:=0;  

   i:=-5;  
   while (i<=500) do begin
     s:=s+i;
     i:=i+5;
   end;
   write(s);
end.