Определите три функции процессора 1.выполняет арифметические операции 2.хранит запущенные программы 3.содержит документы отправленные на печать 4.используют для передачи пакета данных по сети 5. процессами обработки машинного кода 6.производит логические операции

Функции процессора: 1, 5, 6.

Type   point=record       x,y: real   end;   function distance2(a,b: point): real;   { возвращает квадрат расстояния между точками } begin   distance2: =sqr(b.x-a.x)+sqr(b.y-a.y) end; function max(p,q: real): real;   { возвращает максимальное из p,q } begin   if p> q then max: =p else max: =q end; procedure vvod(var a: point; n: integer);   { процедура с изменяемым параметром a } begin   write('введите координаты точки ',n,': ');   readln(a.x,a.y) end; var   a: array[1..3] of point;   d1,d2,d3: real;   i: integer; begin   for i: =1 to 3 do vvod(a[i],i);   d1: =distance2(a[1],a[2]);   d2: =distance2(a[1],a[3]);   d3: =distance2(a[2],a[3]);   if d1> d2 then       if d1> d3 then writeln('максимальное расстояние 1-2')       else           if d1=d3 then writeln('максимальное расстояние 1-2 и 2-3')           else writeln('максимальное расстояние 2-3')   else       if d1=d2 then           if d1> d3 then writeln('максимальное расстояние 1-2 и 1-3')           else               if d1=d3 then writeln('расстояния между всеми точками одинаковы')               else writeln('максимальное расстояние 2-3')       else           if d3> d2 then writeln('максимальное расстояние 2-3')           else               if d3=d2 then writeln('максимальное расстояние 1-3 и 2-3')               else writeln('максимальное расстояние 1-3'); end. тестовое решение: введите координаты точки 1: -2 1 введите координаты точки 2: 4 5 введите координаты точки 3: 2 -2 максимальное расстояние 2-3