PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018 Внимание! Если программа не работает, обновите версию!
begin for var i:=1 to 6 do for var j:=1 to 6 do if i<>j then for var k:=1 to 6 do if (i<>k) and (j<>k) then for var l:=1 to 6 do if (i<>l) and (j<>l) and (k<>l) then Write(i,j,k,l,' ') end.
Var a:array[1..6] of integer; B:ARRAY[1..6] OF INTEGER; C:ARRAY[1..6] OF INTEGER; D:ARRAY[1..6] OF INTEGER; i,j,k,l:integer; begin for i:=1 to 6 do a[i]:=i; for j:=1 to 6 do b[j]:=j; for k:=1 to 6 do c[k]:=k; for l:=1 to 6 do d[l]:=l; for i:=1 to 6 do for j:=1 to 6 do for k:=1 to 6 do for l:=1 to 6 do writeln( a[i],b[j],c[k],d[l]); end.
Внимание! Если программа не работает, обновите версию!
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
if i<>j then
for var k:=1 to 6 do
if (i<>k) and (j<>k) then
for var l:=1 to 6 do
if (i<>l) and (j<>l) and (k<>l) then Write(i,j,k,l,' ')
end.
B:ARRAY[1..6] OF INTEGER;
C:ARRAY[1..6] OF INTEGER;
D:ARRAY[1..6] OF INTEGER;
i,j,k,l:integer;
begin
for i:=1 to 6 do a[i]:=i;
for j:=1 to 6 do b[j]:=j;
for k:=1 to 6 do c[k]:=k;
for l:=1 to 6 do d[l]:=l;
for i:=1 to 6 do
for j:=1 to 6 do
for k:=1 to 6 do
for l:=1 to 6 do
writeln( a[i],b[j],c[k],d[l]);
end.