Какое количество двоичных разрядов требуется чтобы закодировать 512 байт? какое кол-во двоичных разрядов требуется, чтобы закодировать одну из 64 клеток шахматной доски?

1) 512*8 = 4096 2)64=2^6=6 6+1(цвет клетки)=7

var a: array[1..15]of integer; i: integer; beginfor i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 4); end; writeln; for i: =1 to 15 do if a[i]> =0 then a[i]: =sqr(a[i]) else a[i]: =abs(a[i]); for i: =1 to 15 do write(a[i]: 4); end.

 

var a: array[1..15]of integer;

i: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

for i: =1 to 15 do if a[i] mod 2=0 then a[i]: =2 else a[i]: =a[i]-5;

for i: =1 to 15 do write(a[i]: 3);

end.

 

var a: array[1..15]of integer;

i: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

for i: =1 to 15 do if a[i] mod 6=0 then a[i]: =a[i] div 2 else a[i]: =a[i] div 5;

for i: =1 to 15 do write(a[i]: 3);

end.

 

 

var a: array[1..15]of integer;

i,k: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

k: =a[3];

a[3]: =a[11];

a[11]: =k;

for i: =1 to 15 do write(a[i]: 3);

end.

const low=1; high=10;

procedure qsort(var ar: array[low..high]of real; low,high: integer); var i,j: integer; m,wsp: real; begin i: =low; j: =high; m: =ar[(i+j) div 2]; repeat while(ar[i]< m) do i: =i+1; while(ar[j]> m) do j: =j-1; if(i< =j) then begin wsp: =ar[i]; ar[i]: =ar[j]; ar[j]: =wsp; i: =i+1; j: =j-1; end; until (i > j); if(low< j) then qsort(ar,low,j); if(i< high) then qsort(ar,i,high); end;

var ar: array[low..high]of real; i: integer; beginrandomize;

for i: =low to high do ar[i]: =random(101)-50; qsort(ar,low,high); writeln; for i: =low to high do write(ar[i],' '); end.