1024мб = 1048576байт, 24гб = 24576мб, 16200байт = 0,00000001тб
Var X:real;
Begin
Write('X = ');ReadLn(X);
if Cos(x)>0 then Begin
if Sin(x)<>0 then Write('Y = ',(1-Ln(Cos(x)))/Sin(x)) End
else Write('Значение функции не определено')
End.
Всего в русском алфавите 33 символа. Слова начинаются с А, О, Б, К.
Если слово начинается на А, то вторая буква может быть любой из 33.
Также 3-ья, 4-ая и остальные до 8. То есть всего возможно 4*33^7 бит.
Для одного слова. А для 20 слов будет 80*33^7 бит = 10*33^7 байт.