Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500; сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25; т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит. 8 / 4 = 2 (количество битов чтобы закодировать каждый символ) двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов
Ответ дал: Гость
пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
end.
Ответ дал: Гость
program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.
Популярные вопросы