Напишите все возможные комбинации из 4 цифр от 1 до 6,чтобы они не повторялись между собой.СРОЧНО ДАЮ 100 БАЛЛОВ!
Answers & Comments
pavelsheremetevPascalABC.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.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
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.