в pacsal abc сделать​

1) 2,25 Мбайт, 2) 64 Мбайт, 3) 112,5 Мбайт

Объяснение:

1) K=1024*768 - количество пикселей

N=16777216 - количество цветов палитре

Решение N=2^i

I=K*i

16777216=2^24=2^i. Значит i=24 бита

I=1024*768*24/(8*1024)=2304 Кбайт=2,25 Мбайт

2) Дано:

N = 16 777 216

К = 1600 х 1200

Надо найти I

Решение:  N=2^i

I=K*i

16777216=2^24=2^i. Значит i=24 бита

I = 1600 · 1200 · 24 = 46 080 000 бит

46 080 000 бит = 5 760 000 байт = 5625 Кб = 5,5 Мб

Значит подойдет видеокарта лишь с 64 Мбайт.

3) Дано:

i = 16 битов

К = 1024 х 768

Частота обновления экрана = 75 Гц

Надо найти I

I = K · i

I = 1024 · 768 · 16 = 12 582 912 бит

12 582 912 бит = 1 572 864 байт = 1536 Кб = 1,5 Мб

Частота обновления означает, что за 1 с обновится 75 раз.

1,5 · 75 = 112,5 Мб

Var H1:array[1..5] of integer;
    H2:array[1..8] of integer;
    N1:array[1..5] of integer;
    N2:array[1..8] of integer;
    i, j:integer;

begin
randomize;
for i:=1 to 5 do {заполняем массивы}
 begin
 H1[i]:=random(10);
 N1[i]:=random(10);
 end;
for i:=1 to 8 do
 begin
 H2[i]:=random(10);
 N2[i]:=random(10);
 end;
for i:=1 to 5 do {сравниваем продукцию}
 for j:=1 to 8 do
 if N1[i]=N2[j] then writeln(i, ' и ', j, ' Выпускают одинаковую продукц.');
write('H1 ');{выводим массивы}
for i:=1 to 5 do
write(H1[i], ' ');
writeln;
write('N1 ');
for i:=1 to 5 do
write(n1[i], ' ');
writeln;
write('H2 ');
for i:=1 to 8 do
write(H2[i], ' ');
writeln;
write('N2 ');
for i:=1 to 8 do
write(N2[i], ' ');
writeln;
end.