Question

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

Answer 1

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

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

Answer 2

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

Answer 3

var n: integer;
begin

Answer 4

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

Answer 5

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