По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 пример выходных данных: |ab|=10.0

Var       px, py, r: real;       x1, x2, y1, y2: real; begin       read(x1, y1);       read(x2, y2);       px : = x2 - x1;       py : = y2 - y1;       r : = sqrt(px*px + py*py);       write(r); end.

Будем выполнять деление числа на основание той системы, в которую будем переводить. причем, деление с остатком делаем. а частное опять также делим и т.д пока в частном ноль не получим: 37=2*18+1 18=2*9+0 9=2*4+1 4=2*2+0 2=2*1+0 1=2*0+1 а теперь остатки снизу вверх переписываем, это и будет число в требуемой системе 37(10) = 100101(2) проверка. в числе 100101 нумеруем разряды, начиная с 0, но идем справа налево:       число: 100101     разряд: 543210 номер разряда означает показатель основания. составляем выражение: ответ сошелся. действуем аналогично: 94=2*47+0 47=2*23+1 23=2*11+1 11=2*5+1 5=2*2+1 2=2*1+0 1=2*0+1 проверка:       1011110       6543210 сошлось 64=8*8+0 8=8*1+0 1=8*0+1 проверка:         100         210 сошлось

Сортировка по возрастанию. program bifi; const n=50; var a: array[1..n] of real; i,j: integer; k: real; begin for i: =1 to n do a[i]: =random(100); for i: =1 to n-1 do for j: =i+1 to n do if a[j]< a[i] then begin                                               k: =a[i];                                               a[i]: =a[j];                                               a[j]: =k;                                               end; end.