Формула для вычисления количества информации: . Вычислим объем информации в письме племени Мульти. К = 17, так как используется 17-символьный алфавит. N = 100, так как в письме 100 символов. Получается Тогда, раз , то I = 500 бит.
Вычислим объем информации в пиьме племени Пульти. бит. Значит, в письме племени Мульти содержится в два раза больше информации.
Const z = 50;
var A:Array[1..z,1..z] of integer;
n,i,j:integer;
begin
write('Введите размер массива ');
readln(n);
for i:=1 to n do
beginfor j:=1 to n do
begin
A[i,j]:= random(100)-50;
write(A[i,j]:4);
end;
writeln;
end;
writeln;writeln;
for i:=1 to n do
beginfor j:=1 to n do
begin
if i=j then
A[i,j]:=0;
write(A[i,j]:4);
end;
writeln;
end;end.<span>
</span>
невозможно выполнить
x*y*z = P
x+y+z = S
Система имеет два уравнения и три неизвесных, а значит не решается до конца
Var t,v:integer;
begin
readln(t,v);
writeln(v*t);
<span>end.</span>