1 книга = 2048*256*128 = 67108864 байт = 65536 кбайт = 64 мбайт.
750 гб диска = 768000 мбайт
768000/64 = 12000 книг
Для того чтобы перевести число из 10с/с в 2 с/с надо делить число на 2 до тех пор пока остаток не станет меньше двух
Var
i, k,n, max: integer;
f:boolean;
begin
readln(k);
for i := 1 to k do
begin
readln(n);
if (i = 1) or (max < n) then
max := n;
f:=f or (n=0);
end;
writeln(max,' ', f);
end.
var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.