Var
max, min, prev_min, n: integer;
begin
max := -10000;
min := 10000;
prev_min := 10000;
repeat
read(n);
if n > max then begin
max := n;
end;
if n < min then begin
prev_min := min;
min := n;
end;
until n = 0;
writeln(max, ' ', prev_min);
end.
1 книга = 2048*256*128 = 67108864 байт = 65536 кбайт = 64 мбайт.
750 гб диска = 768000 мбайт
768000/64 = 12000 книг
00100100
01100110
11111111
01100110
00100100
где 1 - черный, где 0 - б<u>елый</u>
<span>var a,i:integer;
begin
for i:=1 to 99 do begin
if (i mod 2>0) then
a:=a+i;
end;
write(a);
end.
</span><span>
</span>
Написал программу на Паскале. с расширением pas.