N=2^i где n-мощность алфавита, 2-основание(сколькими символами кодируется символ), i-разрядность(длина числовой строки). <u>Чтобы узнать, достаточно ли мощности алфавита для кодирования, нужно сравнить данную мощность с количеством букв в алфавите.</u>Пример на русском: n-32, а количество наших букв равно 33. Следовательно, нужно взять большую разрядность - не 5, а 6. Тогда мы получаем n-64, чего хватает не только на обозначение букв, но и для знаков препинания. Если вы имели в виду код ASCII, то прогоните по выделенному алгоритму.
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
//PascalABC.NET 3.4.2
begin
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.