Даны 2 натуральных числа х и n. вывести все числа от 1 до n. вычислить хn. проверить с функции возведения в степень

Координаты даны в двоичной системе счисления, поэтому переводим их в десятичную.

Потом сортируем по порядку по номерам точек.

И отмечаем точки на графике, соединяя соседние отрезком.

Я все эти преобразования сделал в таблице Эксель.

Саму таблицу и картинку, полученную после нанесения всех точек смотри внизу.

А вот координаты точек, отсортированные и в десятичной системе:

№     x     y

1     11     7

2     12     7

3     13     6

4     13     5

5     14     6

6     15     6

7     16     5

8     15     5

9     12     3

10     10     1

11     7     1

12     5     2

13     4     1

14     2     2

15     3     2

16     4     3

17     3     6

18     1     7

19     3     8

20     4     8

21     5     7

22     6     5

23     7     6

24     9     6

25     8     5

26     7     5

27     8     4

28     10     4

29     12     5

30     12     6

31     11     7

{#1}

begin

 var A, B, C, D: real;

 write('Введите значения x1,y1: '); readln(A, B);

 write('Введите значения x2,y2: '); readln(C, D);

 A := abs(A) + abs(B); B := abs(C) + abs(D);

 if A = B then write('Точки равноудалены') else

 begin

   var N := ((A > B) ? '12' : '21');

   write('Точка ', N[1], ' находится дальше чем точка ', N[2])

 end;

 writeln(' от начала координат');

end.

{#2}

begin

 var A, B: real;

 write('Введите значения x,y: '); readln(A, B);

 if (A <> 0) and (B <> 0) then

 begin

   var N := ((A > 0) ? 1 : 2);  

   if (B > 0) then else N := N + 1 * ((A > 0) ? 3 : 1);

   write('Точка принадлежит ', N, ' четверти');

 end;

end.

Две оставшиеся задачи прикрепил в файле: