Pascal!

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

Question

Феофан

31 октября, 09:25

+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