Question

Составьте программу которая определяет является ли целое число введённое с клавиатуры чётным или нечётным и выводит информацию на экран

Answer 1

Допустим, что число будет называться z
Program z1;
var z:integer;
begin
Write('Целое число =');
ReadLn(z);
If z mod2=0 then WriteLn('четное') else WriteLn('нечетное');
end.