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

Question

Информатика

Боруля

3 июля, 13:07

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

+4

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