Ввести ціле число вивести повідомлення число парне чи непарне використовуючи операцію div

var   n:integer; begin   Write('n= '); Read(n);   if n = (n div 2)*2 then Writeln('Четное')   else Writeln('Нечетное') end. Тестовое решение: n= 26321 Нечетное

//Можно даже без условного оператора //Pascal ABC.NET Версия 2.2 Сборка 790 const ar:array[-1..1]of string =('Нечётное','Чётное','Нечётное'); var n,k:integer; begin readln(n); try k:=5 div n ;                 //но div тут всё-таки есть writeln (ar[n mod 2]); except writeln('0'); end; end. Пример ввода: 32767 Пример вывода: Нечётное