1. заполните пропуски числами: 6 кбайт = байт = бит кбайт = байт = 20480 бит мбайт = кбайт = 226бит

6кбайт=6144байт=49125бит 2,5кбайт=2560байт=20480бит 2*10^-4мбайт=0,02кбайт=226бит

var x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;

begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.

Const   n = 6; // число строк   m = 6; // число столбцов var   a: array[1..n, 1..m] of integer;   // основной массив   rext: array[1..n, 1..2] of integer; // номера столбцов с min и max в строках   cext: array[1..2, 1..m] of integer; // номера строк с min и max в столбцах   i, j, amin, amax: integer; begin   // заполняем массив а случайными числами   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(100) - 50;           write(a[i, j]: 4);       end;       writeln;   end;   // заполняем массив rext n x 2   for i : = 1 to n do   begin       amin : = 10000;   //заведомо больше a[i,j]       amax : = -10000; //заведомо меньше a[i,j]       for j : = 1 to m do       begin           if amin > a[i, j] then begin               amin : = a[i, j]; rext[i, 1] : = j           end;           if amax < a[i, j] then begin               amax : = a[i, j]; rext[i, 2] : = j           end       end;   end;   // заполняем массив cext 2 x m   for j : = 1 to m do   begin       amin : = 10000;   //заведомо больше a[i,j]       amax : = -10000; //заведомо меньше a[i,j]       for i : = 1 to n do       begin           if amin > a[i, j] then begin               amin : = a[i, j]; cext[1, j] : = i           end;           if amax < a[i, j] then begin               amax : = a[i, j]; cext[2, j] : = i           end       end   end;   writeln;   // ищем седловые точки   writeln('*** седловые точки ***');   for i : = 1 to n do   begin       j : = rext[i, 1];       if cext[2, j] = i then           write('[', i, ',', j, '] ')       else begin           j : = rext[i, 2];           if cext[1, j] = i then               write('[', i, ',', j, '] ')       end   end;   writeln end. тестовое решение исходный массив   10  25  38  38   45  32  42  36   -39  -6    9  48   -25 -37  40  30 *** седловые точки *** [2,2]