Определить, является ли данное число А, четным.
Var a:integer;
begin
write(A=); readln(a);
if a mod 2 = 0
then writeln(число ,a, четное)
else writeln(число ,a, нечетное)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
