Для кодирования одного из 128 символов требуется log(2)128 = 7 бит (2^7=128).
Объем сообщения = 2057*7 бит = 2057*7 / 8 байт = 2057*7 / (8*1024) Кбайт ≈ 1,8 Кбайт
В.Принтер не входит <span>в состав системного блока</span>
В 6-ричной и выше, 7-ричной 8-ричной и т.д.
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
end
else
begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;<span>end.</span>