1024*768*16=(2^10) * (3*2^8)*(2^4) = 3*2^22 бит =
=3*2^19 байт = 3*2^9 Кбайт=3*512 Кбайт =
=1536 Кбайт
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv =');
for i := 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then inc(k);
writeln('k=',k);
readln;
end.
Рассматривая 0001 0011 0010 0100 0011 0101 0100 как двоичные числа, запишем в десятичной системе их эквиваленты: 1 3 2 4 3 5 4
Видно, что числа, стоящие через одно, растут на единицу, т.е. на нечетных местах стоят числа ряда 1 2 3 4, а на четных - 3 4 5. Следующее число по порядку восьмое, на четной позиции, следовательно продолжается ряд 3 4 5 и следующее число - это 6. В двоичной системе оно представляется, как 0110.
Ответ:<em><u> 0110</u></em>
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания