#10 30.11.06 18:03
#11 30.11.06 21:06
#12 30.11.06 21:13
#13 30.11.06 21:36
#14 30.11.06 21:53
Re: "Счастливые билеты."
Maver написал(а):
Karminsky, так то подсчет по сумме идет... а в целом проще код написать чем посчитать )
эм... ну сложить тоже не долго %))
куда более интересная задача -- составить из номера билета число сто, расставляя произвольным образом скобки, операции сложения, вычитания, умножения и деления и выполнив соответсвующие операции.. цифры склеивать нельзя :)
Offline
#15 01.12.06 01:42
Re: "Счастливые билеты."
Karminsky написал(а):
куда более интересная задача -- составить из номера билета число сто, расставляя произвольным образом скобки, операции сложения, вычитания, умножения и деления и выполнив соответсвующие операции.. цифры склеивать нельзя :)
не корректная постановка задачи. далеко не всегда будет иметься решение.
Offline
#16 01.12.06 02:05
#17 01.12.06 02:21
Re: "Счастливые билеты."
STEEFLER написал(а):
Пральна Сева сказал, любой язык программирования поможет, массив из элементов, сравнивается сумма первых и последних трех чисел
это-то и так понятно. а если еще немного поднапрячься, то и распределение можно просчитать. в общем для проги это не составит труда..
Offline
#18 01.12.06 07:49
#19 01.12.06 09:48
#20 01.12.06 11:02
#21 02.12.06 00:45
#22 02.12.06 01:05
#23 02.12.06 09:37
#24 02.12.06 17:31
#25 02.12.06 20:19
#26 03.12.06 09:47
#27 03.12.06 18:15
#28 04.12.06 04:16
Re: "Счастливые билеты."
x*100000 + y*10000 + z*1000 + a*100 + b*10 +c
x + y + z = a + b +c = i
i
0 0 * 1 0 000
1 1 * 3 3 001, 010, 100
2 3 * 6 18 002, 011, 020, 101, 110, 200
3 6 * 10 60 003, 012, 021, 030, 102, 111, 120, 201, 210, 300
4 10 * 15 150 004, 013, 022, 031, 040, 103, 112, 121, 130, 202, 211, 220, 301, 310, 400
5 15 * 21 315 6+5+4+3+2+1+0+0+0+0
6 21 * 28 588 7+6+5+4+3+2+1+0+0+0
7 28 * 36 1008 8+7+6+5+4+3+2+1+0+0
8 36 * 45 1620 9+8+7+6+5+4+3+2+1+0
9 45 * 55 2475 10+9+8+7+6+5+4+3+2+1
10 54 * 63 3402 9+10+9+8+7+6+5+4+3+2
11 61 * 69 4209 8+9+10+9+8+7+6+5+4+3
12 66 * 73 4818 7+8+9+10+9+8+7+6+5+4
13 69 * 75 5175 6+7+8+9+10+9+8+7+6+5
14 70 * 75 5250 5+6+7+8+9+10+9+8+7+6
15 69 * 73 5037 4+5+6+7+8+9+10+9+8+7
16 66 * 69 4554 3+4+5+6+7+8+9+10+9+8
17 61 * 63 3843 2+3+4+5+6+7+8+9+10+9
18 54 * 55 2970 1+2+3+4+5+6+7+8+9+10
19 45 * 45 2025 0+1+2+3+4+5+6+7+8+9
20 36 * 36 1296 0+0+1+2+3+4+5+6+7+8
21 28 * 28 784 0+0+0+1+2+3+4+5+6+7
22 21 * 21 441 0+0+0+0+1+2+3+4+5+6
23 15 * 15 225 0+0+0+0+0+1+2+3+4+5
24 10 * 10 100 0+0+0+0+0+0+1+2+3+4
25 6 * 6 36 0+0+0+0+0+0+0+1+2+3
26 3 * 3 9 0+0+0+0+0+0+0+0+1+2
27 1 * 1 1 0+0+0+0+0+0+0+0+0+1
28 0 * 0 0 0+0+0+0+0+0+0+0+0+0
суммируем: 50412. вопрос: если я ошибся, то где?
Offline
#29 06.12.06 15:25
Re: "Счастливые билеты."
Dim a, b, c, d, e, f, z1, z2 As Long
Dim v As Long
Private Sub CommandButton1_Click()
Worksheets("Лист1").Activate
v = 0
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
For e = 0 To 9
For f = 0 To 9
z1 = a + b + c
z2 = d + e + f
If z1 = z2 Then
v = v + 1
End If
Next f
Next e
Next d
Next c
Next b
Next a
'Wend
Worksheets("Лист1").Range("A1").Select ' Стали в ячейку B
ActiveCell.FormulaR1C1 = v - 1 ' минус 1 потому что исключается комбинация 000 000
End Sub
Ответ получается = 55251
Offline
#30 07.12.06 09:29
#31 07.12.06 12:42
#32 07.12.06 13:56
Re: "Счастливые билеты."
ну, все правильно. я именно считал комбинации шестизначных чисел (неначинающихся с нуля)
Offline

