5. сколько различных чисел можно закодировать с 8 бит? .

8бит = 2 в восьмой степени, т.к. бит может принять два значения, значит 256 чисел.

Var i,n,k,b: integer; begin   write(' b = ');   readln(b);     write(' n = ');   readln(n);   i: =n;   k: =0;   while i> 0 do     begin     i: =i div 10;     k: =k+1;   end;   if n< =b then writeln('число n не превышает ',b)   else writeln('число n больше ',b);   if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное')   else writeln('число цифр ',k,' - нечетное'); end.

Type point = record               x,y: real;       end; var i: integer;     a,b,c: real;     pts: array[1..3] of point; begin   writeln('координаты точек - через пробел');   for i: =1 to 3 do   begin     writeln('x',i,'   ','y',i);     readln(pts[i].x,pts[i].y);   end;   a: =sqr(pts[1].x)+sqr(pts[1].y);   b: =sqr(pts[2].x)+sqr(pts[2].y);   c: =sqr(pts[3].x)+sqr(pts[3].y);   if (a=b) and (a=c) then   writeln('треугольник равносторонний')   else   writeln('треугольник не равносторонний'); end.