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

Question

Информатика

Тоня

6 ноября, 18:33

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

+1

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