Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д. — Pascal(Паскаль)

Program If30;

Var
  x: Integer;

Begin
  ReadLn(x);
  If x Mod 2 = 0 Then
    Write('четное ')
  Else
    Write('нечетное ');

  If x - 100 >= 0 Then
    WriteLn('трехзначное число')
  Else If x - 10 >= 0 Then
    WriteLn('двузначное число')
  Else
    WriteLn('однозначное число'); { незнаю, можно ли так говорить:) }

End.

Leave a Comment