Для записи сообщения использовался 64-х символьный алфавит . каждая страница содержит 30 строк. всё сообщение содержит 8775 байтов информации и занимает 6 страниц. сколько символов в строке? если можно более заранее
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Write('Количество строк и столбцов в массиве: '); var (n,m):=ReadInteger2; Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).Where(x->x>0).ToArray; Write('Массив b: '); b.Println end.
Program t_1; const size=100; var a:array[1..size] of integer; i,n:integer;procedure quicksort(m1,t1:integer); var i1,j1,x1,w:integer; begin i1:=m1; j1:=t1; x1:=a[(m1+t1)div 2]; repeat while a[i1]<x1 do inc(i1); while a[j1]>x1 do dec(j1); if i1<=j1 then begin w:=a[i1]; a[i1]:=a[j1]; a[j1]:=w; inc(i1); dec(j1); end until i1>j1; if m1<j1 then quicksort(m1,j1); if i1<t1 then quicksort(i1,t1);end;begin readln(n); for i:=1 to n do read(a[i]); quicksort(1,n); writeln(a[n]);end.
Дано:
N = 64 ; K1 = 30 ; K2 = 6 ; M = 8775
Найти: K3
N = 2^i ; 64 = 2^6 ; i =6бит
M = K1*K2*K3*i ; K3 = M/K1*K2*i
M = 8775байт*8 = 70200бит
K2 = 70200/(6*30*6)=65 символов