Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Определите, имеется ли среди заданных целых чисел 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.