Школы

Срочно!!! Информатика и икт

1) Цепочка из четырех бусин, помеченных латинскими буквами, формируется по следующему правилу: 1) на втором месте цепочки стоит одна из бусин B, A, E;2) в конце– одна из бусин A, C, E, которой нет на втором месте; 3) в начале – одна из бусин B, C, D, которой нет на четвертом месте; 4)на третьем месте – одна из бусин E, C, D, не стоящая на первом месте. Определите, сколько из перечисленных цепочек созданы по этому правилу? BECC CEDC CAED DEEC ABCE BBDA DBDC DBAE BAEA

2) Цепочка из трёх бусин, помеченных латинскими буквами, формируется по следующему правилу: 1) в середине цепочки стоит одна из бусин C, E, D, A;2) в конце – одна из бусин H, A, C, которой нет на втором месте; 3) на первом месте – одна из бусин H, A, E, D, не стоящая в конце. Определите, сколько из перечисленных цепочек созданы по этому правилу? HCA AEA DAH ECC EEH ADE CEA AED EHA
МС
Марина Савватеева
282
Sub ppp()
Dim aa(4), bb(4), cc(4), dd(4)
aa(0) = "b"
aa(1) = "c"
aa(2) = "d"
bb(0) = "b"
bb(1) = "a"
bb(2) = "e"

cc(0) = "e"
cc(1) = "c"
cc(2) = "d"
dd(0) = "a"
dd(1) = "c"
dd(2) = "e"
Cells.ClearContents
kk = 1
For ii1 = 0 To 2
For ii2 = 0 To 2
For ii3 = 0 To 2
For ii4 = 0 To 2
If aa(ii1) <> dd(ii4) Then
If bb(ii2) <> dd(ii4) Then
If aa(ii1) <> cc(ii3) Then
Cells(kk, 1) = aa(ii1)
Cells(kk, 2) = bb(ii2)
Cells(kk, 3) = cc(ii3)
Cells(kk, 4) = dd(ii4)
kk = kk + 1
End If
End If
End If
Next ii4
Next ii3
Next ii2
Next ii1
End Sub
'1) на втором месте цепочки стоит одна из бусин B, A, E;
'2) в конце- одна из бусин A, C, E, которой нет на втором месте;
'3) в начале - одна из бусин B, C, D, которой нет на четвертом месте;
'4)на третьем месте - одна из бусин E, C, D, не стоящая на первом месте.
вот его результат:
bbea
bbec
bbee
bbca
bbcc
bbce
bbda
bbdc
bbde
baec
baee
bacc
bace
badc
bade
beea
beec
beca
becc
beda
bedc
cbea
cbee
cbda
cbde
caee
cade
ceea
ceda
dbea
dbec
dbee
dbca
dbcc
dbce
daec
daee
dacc
dace
deea
deec
deca
decc
НП
Натали Пасынкова (Федюшина)
78 026
Лучший ответ

Похожие вопросы