5 байтов получится-----------------------------------------------------
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
Общий объем памяти I = K * i
(K - кол-во пикселей, i - объем памяти на 1 пиксель/цвет или глубина цвета)
i = 3 бита (кол-во позиций двоичного кода для кодирования одного цвета)
Объем памяти K = 800 * 600 пикселей * 3 бит = 1440000 бит
1440000.0 бит = 180000.0 байт = 175.78125 Кбайт
750 / 175.78125 = 4.2666666667 ~= 4 целых страницы содержит видеопамять
Через режим инкогнито. Такой в каждом браузере есть.
С:\литература\поэзия\пушкин.doc
БГАЕВД