1012,1112,10002,10102,11002,1000012.
1. На кой такие сложности не ясно. Коды символов идут по порядку русских на сколько я помню,
2. Отладка в этом случае должна помоч. Вводи алфавит и смотри результат, должен быть сдвиг на ключ.
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
Мяч
играть в футбол, баскетбол, и тп
шарообразная форма
красный, белуй, синий
кидать, пинать, ловить и тп
прягает, летает при ударе и тд
Количество информации, полученное при извлечении любой из 8 букв (в том числе и Ж) = log(2)8 = 3 бита. (8 = 2^3)
