Меню сайта

Задача №20

Получить все способы расстановки шести книг разных авторов.


Program for_20-

uses crt-

var k,i1,i2,i3,i4,i5,i6,i7,i8,m,fl:longint-

mm:string-

begin

clrscr-

for i1:=1 to 6 do

for i2:=1 to 6 do

for i3:=1 to 6 do

for i4:=1 to 6 do

for i5:=1 to 6 do

for i6:=1 to 6 do

begin

m:=i6+i5*10+i4*100+i3*1000+i2*10000+i1*100000-

str(m,mm)-fl:=0-

for i7:=1 to 5 do

for i8:=i7+1 to 6 do

if mm[i7]=mm[i8]then fl:=1-

if fl=0 then begin write(m,’ — ‘)-inc(k)- end-

end-

write(‘ кол-во:’,k)-

readln-

end.

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

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