Определите, имеется ли среди заданных целых чисел   A, B, C хотя бы одно чётное.

— Правильный ответ на вопрос найдете ниже

Ответ:

var a,b,c,count:integer;

begin writeln (‘Введите любые три числа ‘); readln(a); readln(b); readln(c); count:=0; if a mod 2=0 then inc(count); if b mod 2=0 then inc(count); if c mod 2=0 then inc(count); if count>0 then writeln (‘Среди данных чисел есть ‘,count,’ четн.’) else writeln (‘Среди данных чисел четных нету’);end.