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

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.

38 (10cc) =32+4+2=2^5+2^2+2^1=100110 (2cc) 501 | 8 48   | |62| 8   21   56|                       501 (10cc) =765 (8cc)   16   |   7       6     5176 (8cc) = 1*8²+7*8+6=126 (10cc) 8579 |16 8576  |   | 536| 16                       8579 (10cc) =2183 (16cc)       3   528 |             |   33|16                 8     32|                     | 2                         1721 (8cc)=111 010  001 (2cc) = 1 1101 0001 (2cc)= 1d1 (16cc) 167 (8cc) =1 110 111 (2cc) =111 0111=77 (16cc) ac1 (16cc) =10*16^2+12*16+1 =2753 (10cc) 721 (16cc) =111 0010 0001 (2cc) =11 100 100 001(2cc) =3441 (8cc)

// pascalabc.net 3.3, сборка 1579 от 18.11.2017// внимание! если программа не работает, обновите версию! begin  var (n,m): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.rows.selectmany(t-> t).where(t-> t mod 8=0);   writeln(s.sum,' - сумма ',s.count,' чисел(числа), кратных 8')end. пример количество строк и столбцов в массиве: 6 9 *** исходный массив [6,9] ***   -66  98 -73 -10 -14 -86 -63 -91 -79   -36  -2 -22  -3  51  59  93  36 -75   72  20  77  12  17  72  71 -41 -73   56 -33    2 -38 -60  17 -14  84  58   10 -99  -8  58 -62 -87 -15 -33  62   -94 -82  93  82 -41 -74  35  94 -84 192 - сумма 4 чисел(числа), кратных 8