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

Question

Информатика

Нюта

28 марта, 23:24

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

+2

Ответы (1)

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

Вечеслав · Answer 1

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.