Помогите с задачей по информатике: Дано целое число.Вывести его строку-описание вида...

Question

Помогите с задачей по информатике:
Дано целое число.Вывести его строку-описание вида "отрицательное четное число", "нулевое число", "положительное нечетное число" и.т.д.
Через mod или div

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  число: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  ЕСЛИ число = 0 ТО Вывод.Цепь("^Ноль.") ИНАЧЕ
    ЕСЛИ число < 0 ТО Вывод.Цепь("^Отрицательное ")
    ИНАЧЕ Вывод.Цепь("^Положительное ") КОН;
    ЕСЛИ ЧЕТ(число) ТО Вывод.Цепь("чётное число.")
    ИНАЧЕ Вывод.Цепь("нечётное число.") КОН
  КОН

КОН Задание.