Составить программу, проверяющую, есть ли в числе четные цифры.
Var: n - число,... Язык: Pascal

могу полностью написать, если надо

var n: integer;begin

writeln('Введите число');readln(a);if n mod 2=0 then write('Чётное') else writeln('Нечётное'); end.

Огромное спасибо!)

if n mod 2=0 then write('Четное')

else write('Не четное');