При угадывании целого числа в некотором диапазоне было получено 6 битов информации. сколько чисел содержит этот диапазон?

всё легко и просто.

2 в 6 степени = 64.

Var a,b,c,d,x,y,h,minx,miny: real; i: integer; begin writeln('a, b, c, d: '); readln(a,b,c,d); h: =0.2; x: =0; y: =a*x*x*x+b*x*x+c*x+d; writeln(x: 2: 1,' ',y: 5: 2); minx: =0; miny: =y; for i: =1 to round((2-0)/h)+1 do   begin   x: =x+h;   y: =a*x*x*x+b*x*x+c*x+d;   writeln(x: 2: 1,' ',y: 5: 2);   if y< miny then begin minx: =x; miny: =y; end;   end; writeln('min = y(',minx: 2: 1,') = ',miny: 5: 2); end. пример: a, b, c, d: 3 2 -1 4 0.0   4.00 0.2   3.90 0.4   4.11 0.6   4.77 0.8   6.02 1.0   8.00 1.2 10.86 1.4 14.75 1.6 19.81 1.8 26.18 2.0 34.00 2.2 43.42 min = y(0.2) =   3.90

Var i,n,k: integer;       a: array[1..100] of integer; begin   write('n = ');   readln(n);   randomize;   writeln('исходный массив: ');   for i: =1 to n do   begin       a[i]: =random(100)-50;       write(a[i],' ');   end;   writeln;   writeln('новый массив: ');   for i: =1 to n div 2 do   begin       k: =a[i];       a[i]: =a[n-i+1];       a[n-i+1]: =k;   end;   for i: =1 to n do write(a[i],' '); end. n = 10 исходный массив: 45 -29 -25 12 -38 5 15 16 47 -36 новый массив: -36 47 16 15 5 -38 12 -25 -29 45