Расположите величины в порядке возрастания: 10 бит
1 Кбайт
1010 байт
2 байта
20 битов

10 бит, 2 байта, 20 бит, 1010 байт, 1 кбайт

8 бит = 1 байт ⇒ 2 байт = 2 · 8 бит = 16 бит < 20 бит ⇒ 2 байт < 20 бит

1024 байт = 1 Кбайт

10 бит < 2 байт < 20 бит < 1010 байт < 1 Кбайт

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