Шахматная доска состоит из 8 строк и 8 столбцов. какое наименьшее количество бит необходимо для того, чтобы закодировать все ячейки доски?

Всего клеток на шахматной доске:   8*8=64. 64=2^ 6   >   6   бит для кодировки одной клетки6*64=384 бита для кодировки всех клеток на шахматной доске

program a1; var a: array[1..30] of integer;       amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], '  '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do  if a[i]> amax then begin  amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do  if a[i]< amin then begin  amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];

a[imin]: =a[imax];

a[imax]: =s; for i: =1 to n do  writeln(a[i],'  '); end.

линейная структура на языкеpascal

нахождение расстояния

 

  var v,s,t: real;

begin

readln(v,t);

s: =v*t;

writeln(s);

end.

ветвление

var a,b: integer;

begin

readln(a,b);

if (a> b) then writeln('+++') else

writeln('');

readln;

end.

цикл

var i: integer;

begin

for i: =1 to 5 do writeln(i);

readln;

end.