В чем состоит особенность компьютерного математического моделирования в процессе управления техническим устройством? ( )

1. За основную единицу измерения количества информации принят …
А) 1 бит

2. Переведите число 101010101 из двоичной системы счисления в десятичную.
D) 341

3. В какой системе счисления хранится информация в компьютере с технической точки зрения?
А) двоичной

4. Сколько секунд минимум потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать 100 страниц текста в 30 строк по 60 символов каждая, при условии что каждый символ кодируется одним байтом?
D) 62,5 с

5. Число 11010111 в двоичной системе счисления соответствует числу в восьмеричной системе счисления:
D) 327

6. Современный компьютер - это …
В) многофункциональное электронное устройство для работы с информацией

7. В подъезде 16 квартир. Сколько информации несет сообщение о том, в какой квартире живет Ваш друг?
С) 4 бита

8. Накопителем информации является
С) диск

9. Четвертое поколение ЭВМ сконструировано на основе
А) больших интегральных схем

10. Во время исполнения программа хранится в
С) оперативной памяти

11. Единица выводимой информации при работе дисплея в графическом режиме называется…:
В) пиксель

12. Каков минимальный объем памяти (в Кб), достаточный для хранения растрового изображения размером 128 х 128 пикселей, если известно, что используется палитра из 256 цветов.
С) 16 Кбайт

13. Для хранения растрового изображения размером 64 х 64 пикселя отвели 1,5 Кб памяти. Каково максимально возможное число цветов в палитре.
С) 8

14. Понятие "телекоммуникация" означает
В) обмен информацией на расстоянии

15. Электронная почта позволяет передавать
С) сообщения и приложенные файлы

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.