Подсчитать количество четных чисел среди чисел a, b, c.

Написать программу в Pascal.

Question

Информатика

Вячеславка

27 сентября, 18:47

Подсчитать количество четных чисел среди чисел a, b, c.

Написать программу в Pascal.

+1

Ответы (1)

Знаете ответ на вопрос?

Измаил · 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.

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

Подсчитать количество четных чисел среди чисел a, b, c.

Написать программу в Pascal.