Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание...

Question

Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида "четное двузначное число", "нечетное четырехзначное число" и т.д.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if n.IsOdd then Write('Нечетное ')
  else Write('Четное ');
  if n>999 then Write('четырех')
  else
    if n>99 then Write('трех')
    else
      if n>2 then Write('двух')
      else Write('одно');
  Writeln('значное число')
end.