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

Ответ

Автор - антагонист

var a,b,c:integer;
begin
writeln('введите число');
readln(a);
if (a mod 2 = 0) then writeln('да')
else
writeln ('нет')
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.