program mas;
var n, i, j: integer;
begin
readln(n);
for i:=1 to (n-1) do
for j:= i+1 to n do
write('(', i,',', j, ')');
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить алгоритм для выведения на экран (1, 2) (1, 3)…(1..n-1) (1, n) (2, 3)…(2..n-1) (2, n) … (n-1, n) Через Pascal
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.