Question

Написать программу на языке паскаль
Определить является ли число четным или нечетным

Answer 1

var
a : integer;
begin
readln (a);
if a mod 2 = 0 then
writeln ('число является чётным');
else
writeln ('число не является чётным');
end.