Даны три целых числа a, b и c. Найти количество чётных чисел среди них.

Даны три целых числа a, b и c. Найти количество чётных чисел среди них.
Гость
Ответ(ы) на вопрос:
Гость
//pascal var a,b,c,n: integer; begin n:=0; readln(a); if a mod 2 = 0 then n:=n+1; readln(b); if b mod 2 = 0 then n:=n+1; readln(c); if c mod 2 = 0 then n:=n+1; writeln('Четных : ', n); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы