запишите алгоритм определения количества четных чисел среди заданных целых чисел а, в, с

Question

Информатика

Владислава

31 августа, 13:34

запишите алгоритм определения количества четных чисел среди заданных целых чисел а, в, с

+1

Ответы (1)

Знаете ответ?

Дормедонт · Answer 1

var

a, b, c, n:integer;

begin

n:=0;

readln (a) ;

readln (b) ;

readln (c) ;

if (a mod 2) = 0 then

n:=n+1;

if (b mod 2) = 0 then

n:=n+1;

if (c mod 2) = 0 then

n:=n+1;

writeln ('kolichestvo = ', n) ;

end.