Question

Напишите все возможные комбинации из 4 цифр от 1 до 6,чтобы они не повторялись между собой.СРОЧНО ДАЮ 100 БАЛЛОВ!

Answer 1

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.

Answer 2

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.

Answer 3

Хорошо, вот все возможные комбинации из 4 цифр от 1 до 6, где цифры не повторяются между собой:

1. 1234
2. 1235
3. 1236
4. 1243
5. 1245
6. 1246
7. 1253
8. 1254
9. 1256
10. 1263
11. 1264
12. 1265
13. 1324
14. 1325
15. 1326
16. 1342
17. 1345
18. 1346
19. 1352
20. 1354
21. 1356
22. 1362
23. 1364
24. 1365
25. 1423
26. 1425
27. 1426
28. 1432
29. 1435
30. 1436
31. 1452
32. 1453
33. 1456
34. 1462
35. 1463
36. 1465
37. 1523
38. 1524
39. 1526
40. 1532
41. 1534
42. 1536
43. 1542
44. 1543
45. 1546
46. 1562
47. 1563
48. 1564
49. 1623
50. 1624
51. 1625
52. 1632
53. 1634
54. 1635
55. 1642
56. 1643
57. 1645
58. 1652
59. 1653
60. 1654

Всего 60 комбинаций. Надеюсь, это поможет вам! Если у вас есть ещё вопросы или запросы, не стесняйтесь задать.