Pascal!!
вычислить сумму целых чисел кратных 4 в интервале от 0 до 200
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
