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

Question

Информатика

Оливия

4 марта, 16:31

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

+5

Ответы (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.