Question

12. Составить алгоритм и написать решение задачи на Паскале: Целое число вводится пользователем с клавиатуры. Проверить его на четность

Answer 1

program up1;
var q,w:integer;
begin
writeln('введите число');
read(q);
w:=q mod 2;
if w=0 then writeln('число чётное') else writeln('число не чётное');
end.