1) 30*70*5=1050 байт объем всего текста
2) 4*30*70=8400 бит; 3150*8=25200 бит; 25200/8400=3 бита - вес одного символа. Зная формулу найдем 2^3=8 Значит мощность алфавита равна 8
Var <имя_массива>: array [(мин_знач_индекса)..(макс_знач_индекса)] of тип_элементов;
Например:
var mas: array [1..10] of integer; - массив mas с 10 пронумерованными целочисленным значениями.
begin
var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;
SetLength(S, 50);
Println('Приняты символы:');
S.Println('');
Println('Найдено z:', S.Count(c -> c = 'z'))
end.
РАЗУМ
)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))