Question

Подсчитать количество четных чисел среди чисел a,b,c.
Написать программу в Pascal.

Answer 1

var
k,a,b,c:Integer;
Begin
 k:=0;
 Read(a,b,c);
  if (a mod 2 = 0) then k:=k+1;
  if (b mod 2 = 0) then k:=k+1;
  if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.