Введите с клавиатуры целое число в диапазоне 1-999.а)Определите количество знаков в...

Question

Введите с клавиатуры целое число в диапазоне 1-999.
а)Определите количество знаков в числе;
б)Определите четность числа;
в)Выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд.
Пример ввода: 347
Пример вывода: Нечетное трехзначное число

Answer 1

Type num=1..999;
Var x:num; k,y:integer;
Begin
 write('x=');
 readln(x);
 y:=x;
 k:=0;
 while y<>0 do
   begin
    y:=y div 10;
    k:=k+1;
   end;
 if (x mod 2)=0 then
   write('Четное ')
  else
   write('Нечетное ');
 if k=1 then write('однозначное ')
  else
   if k=2 then write ('двухзначное ')
    else
     write('трехзначное ');
 writeln('число');
End.