Sasha Programmer
Мыслитель
(5440)
9 лет назад
var
num :integer; // объявляем переменную
begin
write('Введите число: '); // запрашиваем ввод числа
readln(num); // вводим число
// определяем парность и выводим соответствующее ссобщение
if(num mod 2 = 0) then writeln('Число ',num,' чётное (парное). ')
else writeln('Число ',num,' нечётное (непарное). ');
end.