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

Через Pascal

Question

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

рамика2 · Answer

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....