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

Question

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

Answer 1

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

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

Comments

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

---

var n: integer;begin

---

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

---

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