//PascalABC.NET
begin
var A := ArrRandom(10, 10, 35);
A.Println;
A.Sum.Println;
A.Where(x -> x > 20).Println.Count.Println;
A.Min.Println;
end.
1,25 кбайт / 2048 симв = 0,0006103515625 кбайт на символ
0,0006103515625 кбайт на симв * 1024 * 8 = 5 бит на символ
2^5 = 32 символа (букв) мощность алфавита.
Исходный программный код находится в приложении ниже.
Предполагается, что 1≤n≤92.
Писал на PascalABC.Net v.3.2, сборка 1325 (19.10.2016).
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('x, y, z =');
var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));
Println(e)
end.