Question

Помогите решить.
В заданном натуральном трехзначном числе имеется четная цифра.Pascal

Answer 1

var
n,a,b,c:integer;
begin
readln(n);
//Найдём 3 цифры
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then
writeln('Есть четная цифра')
else
writeln('Нет четной цифры');
end.