Зеленый цвет на одном компьютере кодируется кодом 0010, а на другом 010. разрешающая способность обоих компьютеров составляет 640x200. каков объем станицы видеопамяти на этих компьютерах?

640*200 =  128 000 пикселей в первом компьютере 4 бит на пиксель во втором 3 бит на пиксель 128 000*4 =  512 000 бит или  64 000 байт 128 000*3 =  384 000 бит или  48 000 байт

Var m: array[0..1000] of longint; n,i: longint; procedure tf;   var q,j: longint;   o: array[1..10] of longint;   begin    write(m[1],' ');     q: =1;     o[q]: =m[1];   i: =1;     while q< > 3 do      begin      i: =i+1;           if q=1 then     if m[i]< > o[1] then       begin     write(m[i],' ');     q: =q+1;       o[q]: =m[i];       end;         if q=2 then       if (m[i]< > o[1]) and (m[i]< > o[2]) then         begin         write(m[i]);         q: =q+1;         end;     end; end; procedure tm; var mk: array[1..10] of longint;   begin   for i: =1 to 3 do  mk[i]: =0; for i: =1 to n do   if mk[1]< m[i] then      begin      mk[3]: =mk[2];       mk[2]: =mk[1];       mk[1]: =m[i];       end else   if (mk[2]< m[i]) and (m[i]< > mk[1]) then      begin    mk[3]: =mk[2];       mk[2]: =m[i];       end else   if (mk[3]< m[i]) and (mk[2]< > m[i]) then mk[3]: =m[i]; write(mk[1],' ',mk[2],' ',mk[3]);   end; скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку 

1)наполняем 8-ми литровый  бидон   и переливаем его в 5-ти литровый,таким образом в 8 л. остается 3 л. 2)освобождаем 5-ти литровый,и снова наливаем в него оставшиеся в том бидоне 3 литра 3)далее снова наполняем 8-ми литровый и доливаем из него в 5-ти литровый,и у нас остается 6 литров 4)затем снова освобождаем 5-ти литровый,и переливаем в него содержимое из 8-ми литрового,так как в нем было 6 литров,а мы перелили их в 5-ти литровый бидон,то   теперь в 8-ми литровом остался 1 литр.