Pascal!

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

Question

Павел

13 сентября, 06:48

+2

Ответы (1)

Знаете ответ на вопрос?

Натоша · Answer 1

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.

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