Автомат обрабатывает натуральное число N по следующему алгоритму: 1) Строится двоичная запись числа N.

2) Запись «переворачивается», то есть читается справа налево. Если при этом появляются ведущие нули, они отбрасываются.

3) Полученное число переводится в десятичную запись и выводится на экран.

Какое наибольшее число, не превышающее 1000, после обработки автоматом даёт результат 23?

928

Объяснение:

Переведем 23 и 1000 в двоичную СЧ:

1000 = 1024 - 24 = 1024 - 16 - 8 = 10000000000 - 10000 - 1000 =

= 1111101000 (10 цифр)

23 = 32 - 9 = 32 - 8 - 1 = 100000 - 1000 - 1 = 10111 (5 цифр)

Инвертируем 24(2) = 11101 = 16 + 8 + 4 + 1  =  29

Теперь добавим столько нулей в конец числа, сколько цифр в 1000(2), так как необходимо найти максимальное число:

1110100000 = 29*2^5 = 29*32 = 928

хотелось бы напомнить, что с=12, f=15, а=10.

имеем:

20с7f_16 = 2·16⁴ + 0·16³ + 12·16² + 7·16¹ + 15·16⁰ = 2·65536 + 12·256 + 7·16 + 15 = 131072 + 3072 + 112 + 15 = 134271_10(f3ao6/4)_16 = (15·16⁴ + 3·16³ + 10·16² + 0·16¹ + 6·16⁰)/4 = (15·65536 + 3·4096 + 10·256 + 6)/4 = (983040 + 12288 + 2560 + 6)/4 = 997894/4 = 249473,5 _10

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

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

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

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

  for i: =1 to n do

      write(d[i]);

  readln

end.