Сколькими различными способами можно грани куба раскрасить в четыре цвета ?

@ДобрыйСанта · Регистрация: 22.11.2015

Author24 — интернет-сервис помощи студентам

Сколькими различными способами можно грани куба раскрасить в четыре цвета ? Напечатать все возможные варианты.

@JuriiMW · 28.05.2018, 08:36

Pascal

procedure colors(c:array of Integer):=Print(c.Select(n->Chr(65+n)).JoinIntoString);
begin
  var c:=ArrFill(12,0);
  colors(c);var count:=1;
  var i:=0;
  repeat
    while (i<12)and(c[i]=3) do i+=1;
    if i<12 then begin c[i]+=1;
      while i>0 do begin i-=1;c[i]:=0;end;
      colors(c);count+=1;end;
  until i=12;
  WriteLn(NewLine,count);
end.

@ДобрыйСанта 3 / 1 / 2 Регистрация: 22.11.2015 Сообщений: 15
		1
	Сколькими различными способами можно грани куба раскрасить в четыре цвета ? 27.05.2018, 20:40. Показов 2680. Ответов 1 Метки нет (Все метки) Сколькими различными способами можно грани куба раскрасить в четыре цвета ? Напечатать все возможные варианты. 0

	28.05.2018, 08:36

Сколькими различными способами можно грани куба раскрасить в четыре цвета ?

Решение