В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Silwashka99
Silwashka99
17.09.2020 09:30 •  Информатика

Напишите все возможные комбинации из 4 цифр от 1 до 6,чтобы они не повторялись между собой. 100 !

Показать ответ
Ответ:
bagira2912
bagira2912
08.10.2020 20:55
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.
0,0(0 оценок)
Ответ:
Рената515
Рената515
08.10.2020 20:55
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.
Напишите все возможные комбинации из 4 цифр от 1 до 6,чтобы они не повторялись между собой. 100 !
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота