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

Question

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

Answer 1

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.