Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
I = 5 Кбайт = 40960 бит
k = 5120
N - ?
N = 2 в степени i
I = i * k
i = I / k
i = 40960 / 5120 = 8
i = 8
N = 2 в 8 степени
N = 256
Ответ: Мощность алфавита равна 256.
Много воды, но о большой скорости никто не говорил, верно?)
А) произведение отрицательных элементов с четными номерами