Question

Составить алгоритм для выведения на экран
(1,2) (1,3)…(1..n-1) (1,n)
(2,3)…(2..n-1) (2,n)
…
(n-1,n)

Через Pascal

Answer 1

program mas;

var n, i, j: integer;

begin

 readln(n);

 for i:=1 to (n-1) do

 begin

   for j:= i+1 to n do

   begin

     write('(', i,',', j, ')');

   end;

 end;

end.