Даны две точки a(x1, y1) и b(x2, y2 составьте алгоритм определяющий, которая из точек находится ближе к началу координату.

Думаю, имелось в виду не алгоритм, а программу, так что вот(если имелось в виду именно алгоритм, то напишите в лс): #include < iostream> #include < math.h> using namespae std; int main() {   double x1,y1,x2,y2;   cin> > x1> > y1> > x2> > y2;     double m1 = sqrt(x1*x1+y1*y1);     double m2 = sqrt(x2*x2+y2*y2);   if(m1 <   m2) cout < < "ближе a" < < endl;   else cout < < "ближе b" < < endl; /*с учетом иррациональности расстояния между точками почти  в большинстве случаев, и неточности плавающих вычислений на компьютере можно пренебречь случаем, когда они равноудалены.*/   char c; cin > > c;   return 0; }

Var a, b, c, d: integer; p: integer; begin writeln('введите первое число: '); readln(a); writeln('введите второе число: '); readln(b); writeln('введите третье число: '); readln(c); writeln('введите четвёртое число: '); readln(d); if a> b then writeln('1 число больше 2'); if a< b then writeln('1 меньше 2'); if b> c then writeln('2 число больше 3'); if b< c then writeln('2 меньше 3'); if c> d then writeln('3 число больше 4'); if c< d then writeln('3 меньше 4'); if c> d then writeln('4 число больше 1'); end.

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в других версиях работа не гарантируется! begin   var a: =arrrandom(15,-20,20); a.println;   a: =a.select(x-> x.isodd? x*3: x div 2).toarray; a.println end. пример -1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3 -3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9 а вот так это же самое обычно делают в const   n=15; var   a: array[1..n] of integer;   i: integer; begin   randomize;   for i: =1 to n do begin       a[i]: =random(41)-20;       write(a[i],' ')       end;   writeln;   for i: =1 to n do begin       if a[i] mod 2=0 then a[i]: =a[i] div 2       else a[i]: =a[i]*3;       write(a[i],' ')       end;   writeln end.