Pascal!! вычислить сумму целых чисел кратных 4 в интервале от 0 до 200

0 голосов
126 просмотров

Pascal!!
вычислить сумму целых чисел кратных 4 в интервале от 0 до 200


Информатика (22 баллов) | 126 просмотров
Дан 1 ответ
0 голосов

Program main;
var s,i:integer;
begin 
 for i:=0 to 200 do   
  if i mod 4=0 then     
   s:=s+i; 
writeln('Сумма чисел кратных 4 - ', s);
readln;
end.

(80 баллов)