:(* 1)даны две точки на плоскости. запишите алгоритм , позволяющий определить, какая на них находиться ближе к началу координат. 2) запишите алгоритм, позволяющий определить есть ли среди цифр заданного целого трехзначного числа х одинаковые

1) находим расстояния от начала координат до точек ( длины отрезков ) s = x^2+ y ^2 , где x и y - координаты двух точек 2) сравниваем их

Var  s : string; i, j, n : integer;   f : boolean; begin  readln(s);   n : = length(s);   i : = 1; j : = n;   f : = false;       while (i < = j) do    begin      if(s[i] = s[j])        then f : = true        else f : = false;       i : = i + 1;       j : = j - 1;       if not f        then break;     end;       if f    then write('палиндром')    else write('не палиндром'); end.

Немного другое решение var  s : string; i, j, n : integer;   f : boolean; begin    readln(s);     n : = length(s);     i : = 1; j : = n;     f : = false;         while (i < = j) do      begin        if(s[i] = s[j])          then f : = true          else f : = false;         i : = i + 1;         j : = j - 1;         if not f          then break;       end;         if f      then write('палиндром')      else write('не палиндром'); end.