Введите с клавиатуры целое число в диапазоне 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.

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

   

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации