Решение задач по теме "Условный оператор If в Pascal"

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

program three;
var
   x:integer;
begin
   write('x = ');
   readln(x);
   
   if Odd(x) then
   write('Нечетное ') else write('Четное ');
   if x >= 100 then
   write('трехзначное число')
   else
       if x < 10 then
       write('однозначное число')
       else write('двузначное число');
end.

Назад