求一PASCAL程序

来源：百度知道编辑：UC知道时间：2024/05/10 11:13:08

题目是：有四支球队（1，2，3，4）进行比赛，要求每支球队都要与其他三支队伍比一场，例如：1：2，1：3，1：4等。求输出所有的可能性。

各位大哥大姐，十万火急啊！

const n=4;
var i, j: integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do writeln(i, ': ', j);
end.

var a,b:(one,two,three,four);;
begin
for a:=one to three do
for b:=succ(b) to four do writeln(a,':',b);
readln;
end;
好简单.