По формуле I:K=N, где
I - Объем информации.
K - количество символов в сообщении.
N - мощность алфавита.
K=512
I=1536 байт=12288 бит
12288:512=24
Ответ: 24
Если не ошибаюсь, во всех 5 программах выведется число 55
0 ребят, ибо одни предпочитают квесты, а другие - симуляторы, а те, кто обоюдно их любит - нету
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
Const n=5; // обязательно должно быть нечетным
var
i,j,max,x,k:integer;
a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
begin
if a[i,i]>max then max:=a[i,i];
if a[i,n+1-i]>max then max:=a[i,n+1-i];
end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
begin
if a[i,i]=max
then a[i,i]:=x;
if a[n+1-i,i]=max then a[n+1-i,i]:=x;
end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end
end.
