Var i, min, max: integer;
function f(n: integer):integer;
begin
f:=n*n-4*n+3;
end;
begin
min := f(1);
max := f(1);
for i:=1 to 3 do
begin
if f(i) > max then max := f(i);
if f(i) < min then min := f(i);
end;
writeln(min, ' ', max)
end.
Для начала найдем вес одного символа.
6*1024*8=49152 бит.Вес одного символа равняется 49152/6144=8 битN=2^i, где i - вес одного символа, N - количество символов в алфавите.N=2^8=256 символов