Если в алфавите 16 символов, то для записи одного символа необходимо log(2)16 = 4 бита (2^4=16)
2 Кбайт = 2*1024 байт = 2*1024*8 бит
Количество символов = 2*1024*8/4 = 4096
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.
Жёский диск правильный ответ =)))))))))))))))))))))))))))))))
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Норм.