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

Question

Информатика

Андроника

24 февраля, 20:10

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

+5

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