Сообщение занимает полных 5 страниц. на каждой странице размещается 30 строк по 70 символов в строке. сколько символов вспользовано алфавите. если все сообщения содержит 10500 байт.
Посчитаем объём сообщения: 5 страниц по 30 строк по 70 символов по Х бит = 10500 байт = 10500*8 бит 84000 бит = , т.е. 5*30*70*Х=84000 отсюда 10500*х=84000 и → х=8 бит 8 бит можно закодировать 2^8 символов, т.е. 256 символов
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
1) файл паскаля приложен. 2) код на c# static void Main(string[] args) { int a, b; a = Convert.ToInt32(Console.ReadLine()); b = Convert.ToInt32(Console.ReadLine()); if (a > 2) { Console.WriteLine(a / 2); Console.WriteLine(b - 1); } } 3) Код на vb dim a as integer = 0 dim b as integer = 0 a = cint(console.readline()) b = cint(console.readline()) if a > 2 then console.writeline( a / 2) console.writeline(b - 1) end if
5 страниц по 30 строк по 70 символов по Х бит = 10500 байт = 10500*8 бит 84000 бит = , т.е.
5*30*70*Х=84000
отсюда 10500*х=84000 и → х=8 бит
8 бит можно закодировать 2^8 символов, т.е. 256 символов