Даны три целых числа a, b и c. Найти количество чётных чисел среди них.

Question

Даны три целых числа a, b и c. Найти количество чётных чисел среди них.

Comments

Язык?

Answer 1

//pascal
var a,b,c,n: integer;
begin
n:=0;
readln(a);
if a mod 2 = 0 then n:=n+1;
readln(b);
if b mod 2 = 0 then n:=n+1;
readln(c);
if c mod 2 = 0 then n:=n+1;
writeln('Четных : ', n);
end.