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

Ответы 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;beginfor 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.
  • 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 img
    • Автор:

      isisgates
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years