// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите целое число:'));
if n.IsOdd then Println('Число нечетное')
else
if n=0 then Writeln('Ноль вводиить нельзя')
else Println('Число четное')
end.
#include <iostream>
int main()
{
int x;
std::cout << "Введите число, которое нужно проверить: ";
std::cin >> x;
if(x == 0)
std::cout << std::endl << "Нельзя писать такое число!";
else if(x % 2 == 0)
std::cout << std::endl << "Четное";
else if(x % 3 == 0 || x == 1)
std::cout << std::endl << "Нечетное";
return 0;
}
