Сделайте логические схемы быстро и

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

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

  for i: =1 to 10 do

        readln(a[i]);

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

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

найдём общее количество пикселей:

450*600=270000

переведём объём в биты:

150кб=1228800б

найдёт сколько бит в одном пикселе:

1228800/270000=4б/пикс

теперь найдём сколько нужно цветов:

2^k=4 значит к=2

ответ: 2 цвета.

ну, считай за 1 секунду 36 мегабайт. в 2 часах 120 минут или 7200 секунд. 7200*36=

259200 мегабайт = 259.2 гигабайта. (странный фильм какой

var n,count,sum: integer;

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.