Определить, является ли данное число А, четным.

Question

Определить, является ли данное число А, четным.

Answer 1

Var a:integer;
begin
write('A='); readln(a);
if a mod 2 = 0
  then writeln('число ',a,' четное')
 else writeln('число ',a,' нечетное')
end.

Comments

Что нужно ввести здесь А= ? Паскаль выдает ошибку без ввода.

---

нужно ввести какое-нибудь число

---

А как блок-схемой это написать?