Ин
Информатика
04.06.2021 00:07
Решено

.(Для записи сообщения использовался 64-х символьный алфавит. каждая страница содержит 30 строк. все сообщение содержит 8775 байтов информации и занимает 6 страниц. сколько символов в строке?).

Лучшие ответы
NikaMalinka2
17
4,5(35 оценок)
04.06.2021 18:48

64 - 6 битов на символ

8775*8/6/6/30 = 65

zheckachernev
8
4,6(46 оценок)
04.06.2021 17:31
{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 10; var   a: array[1..n, 1..n] of integer;   i, j, min, max: integer; begin   randomize;   {clrscr; }   writeln('исходный массив');   max: =-100; min: =100;   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81)+10;           write(a[i,j]: 3);           if max< a[i,j] then max: =a[i,j]           else               if min> a[i,j] then min: =a[i,j]       end;       writeln   end;   writeln('min=',min: 2,', max=',max: 2);   {readkey} end. тестовое решение: исходный массив   38 43 63 12 80 87 22 82 39 52   88 82 79 35 68 67 66 63 84 85   78 48 46 26 63 71 32 71 86 45   11 38 55 12 75 85 68 13 64 88   87 16 27 26 74 34 88 76 26 25   74 45 17 18 43 81 88 46 40 18   65 41 87 85 51 59 36 76 51 73   90 63 89 87 88 71 31 29 43 38   74 47 55 70 61 56 31 46 60 84   88 31 64 56 32 55 19 32 66 24 min=11, max=90
il1234561
0
4,6(68 оценок)
04.06.2021 17:35
1) uses crt; const n=5; m=7; var i,j,s: integer; a: array[1..n,1..m]of integer;       begin         randomize;         clrscr;                       for i: =1 to n do                        begin                                for j: =1 to m do                                    begin                                                  a[i,j]: =random(40)-19;                                                   write(a[i,j]: 4);                                     end;                                   writeln;                         end; writeln;           for j: =1 to m do                      begin                                  s: =0;                                   for   i: =1 to n do                                              s: =s+a[i,j];                                   writeln ('j: ',j,' ', s);                           writeln;                     end; end.
Присоединяйся к нам!
Зарегестрируйтесь
Уже есть аккаунт? Войти