Найти сумму только четных чисел среди 10 введённых с клавиатуры

Question

Информатика

Вениаминка

11 марта, 23:17

Найти сумму только четных чисел среди 10 введённых с клавиатуры

+4

Ответы (1)

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

Павлюня · Answer 1

Program prog;

Uses crt;

var i, s, a: integer;

begin

s:=0;

for i:=1 to 10 do

begin

write ('NUM', i,' = ') ;

readln (a) ;

if ((a mod 2) = 0) then s:=s+a;

end;

writeln;

writeln ('Sum = ', s) ;

End.