A байты = A / 1024 Килобайт = A / 1024 / 1024 Мегабайты = A /1024 /1024 / 1024 Гигабайт
Begin
var ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.
Var s:integer;
Begin
S:=1;
For k:=3 to 6 do
s:=k*3
Writeln (s);
End.
Количество символов в тексте k=I/i, где I- объем текста, i- количество бит на 1 символ.
i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂64 = 6 бит
k=8190/6= 1365 символов
В 1 неделю 1 раз,плиз отметь как лучшую работу