Написать программу на языке паскаля . заданы координаты двух точек. определите, расположены ли они на одной окружности с центром в начале координат. результат присвоить символьной переменной. две точки находятся на одной окружности, если длины радиус-векторов, соединяющих эти точки с началом координат, равны (проверку на равенство осуществить с точностью до е=1.0е-3)

var x1,x2,y1,y2: real;

a: string; beginreadln(x1,y1); readln(x2,y2); if abs(x1/y1)=abs(x2/y2) then a: ='вот здесь я незнаюi';

writeln(a); end.

var x1,x2,y1,y2: real;

a: string; beginreadln(x1,y1); readln(x2,y2); if abs(x1/y1)=abs(x2/y2) then a: ='na odnoi okrujnosti' else a: ='ne na odnoi okrujnosti';

writeln(a); end.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var a: =arrrandom(readinteger('n=',99); a.println;   var b: =a.pairwise; b.println;   writeln('найдено пар: ',       b.where(x-> (x[0]< 0) and x[1].iseven or           (x[1]< 0) and x[0].iseven).count) end. тестовое решение n= 10 -37 -71 -71 -65 73 -66 -33 -85 62 -92 (-37,-71) (-71,-71) (-71,-65) (-65,73) (73,-66) (-66,-33) (-33,-85) (-85,62) (62,-92) найдено пар: 3

Const m=5; n=6; var  a: array[1..m,1..n] of integer; i,j,max,imax,jmax,min,imin,jmin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to n do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,1]; imax: =1; jmax: =1; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to m do   for j: =1 to n do   begin   if a[i,j]> max then begin max: =a[i,j]; imax: =i; jmax: =j; end;   if a[i,j]< min then begin min: =a[i,j]; imin: =i; jmin: =j; end;   end; writeln('max = a[',imax,',',jmax,'] = ',max); writeln('min = a[',imin,',',jmin,'] = ',min); a[imax,jmax]: =min; a[imin,jmin]: =max; writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:       69   2   25   92   32   43   98   77   49   29   48   5   30   8   95   83   37   83   31   6   47   91   82   65   86   31   62   70   82   38 max = a[2,1] = 98 min = a[1,2] = 2 полученный массив:   69   98   25   92   32   43     2   77   49   29   48   5   30   8   95   83   37   83   31   6   47   91   82   65   86   31   62   70   82   38