Жители планеты Альфа отправили на Землю сообщение, записанное с ВСЕХ символов используемого ими алфавита: "МАМАМЫЛАМЫЛОМРАМУ!". Определите информационный объем этого сообщения"
Задача 1 Var i,sum:integer; mas:array [1..10] of integer; Begin for i:=1 to 10 do begin mas[i]:=random(20); write(' ',mas[i]); sum:=sum+mas[i]; end; writeln; write('Среднее арифметическое этих чисел = ',sum/10); End.
Задача 2 Var i,max:integer; Begin readln(i); while (i<>0) do begin if (i>max) then max:=i; readln(i); end; Writeln('Максимальное число: ',max); End.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=MatrixRandom(3,2,-99,99); Writeln('Массив А'); for var i:=0 to 2 do begin for var j:=0 to 1 do Write(a[i,j]:4); Writeln end; var b:=MatrixRandom(3,2,-99,99); Writeln('Массив B'); for var i:=0 to 2 do begin for var j:=0 to 1 do Write(b[i,j]:4); Writeln end; var c:array[0..2,0..1] of real; Writeln('Результирующий массив'); for var i:=0 to 2 do begin for var j:=0 to 1 do begin c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1) end; Writeln end end.
Тестовое решение Массив А -91 -93 -62 9 -97 6 Массив B -64 18 57 -34 -65 -30 Результирующий массив 582.4 -167.4 -353.4 -30.6 630.5 -18.0
Так как на одну букву русского алфавита приходится 8 битов, а у нас имеется 17 букв, то мы 17 умножаем на 8.
17*8 = 136 битов.
ответ: 136 битов.