Разрешающая экрана монитора 1024*1280 пикселей. в палитре 4 цвета. каким должен быть объем видеопамяти для хранения 2х страниц графического изображения?

(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)

Дано:

K = 1024 * 1280 = 1310720 пикселей

По формуле  (N - кол-во цветов в палитре, i - глубина цвета)

бит

I - ?

I = K * i = 1310720 * 2 = 2621440 бит

2621440.0 бит = 327680.0 байт = 320.0 Кбайт одна страница

320 * 2 = 640 Кбайт  всего

ответ 640 Кбайт

Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.