Var n,c,i: integer; A: array[1..10000] of integer;begin write('Кол-во частей: '); read(n);
for i:=1 to n do read(A[i]);
c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c += 1; write('Чётных чисел: ',c);end.
Program keklol;
var y,x:integer;
writeln('vvedite y',y);
readln(y);
writeln('vvedite x',x);
readln(x);
y=1/(x*x*x)+(2sqr(x))+x
end.
I = 2 Кбайта = 2 * 1024 * 8 = 16384 бит
k = 4096 символов
I = k * i
Найдём i
i = I / k
i = 16384 / 4096 = 4
N = 2 ** i
N = 2 ** 4
N = 16
Ответ: Мощность алфавита 16.
X(байт)=262144(байт)
Думаю что так.