Меню сайта

Задача №16

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


program for_16-

uses crt-

var n,a,b,c,d,e,f,m:longint-

begin

clrscr-

for a:=1 to 4 do

for b:=1 to 4 do

begin

for c:=1 to 4 do

for d:=1 to 4 do

for e:=1 to 4 do

for f:=1 to 4 do

begin

m:=a*100000+b*10000+c*1000+d*100+e*10+f-

n:=n+1-write(‘ ‘,m)-

end-

readln-

end-

writeln(»)-write(‘ кол-во способов:’,n)-

readln-

end.

Категория: Циклы | Дата: 18.11.12

Меню раздела
Блок