<span>Способ кодирования информации с помощью того же алфавита ,что и исходный текст - я не знаю... не написано сколько всего букв
</span><span>Способ кодирования информации с помощью чисел - числовой;
</span>
Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
Из рук
из бутылки
из воздуха
uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>