Даны три целых числа 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.
Не нашли ответ?
Похожие вопросы