Pascal. С клавиатуры вводится 3 числа. определить сколько из них четных.

Ответ учителя по предмету Информатика

Var

A,B,C,n:integer;

Begin

WriteLn(‘Введите три целых числа’);

ReadLn(A,B,C);

n:=0;

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(N)

End.