Хочу сосчитать сколько счастливых билетов общественного транспорта одной Серии существует (для тех кто не знает если сумма первых 3 цифр равна сумме последних 3 цифр , то билет счастливый). Если вам известно сколько их, не говорите пожалуйста, хочу сам сосчитать :D
При запуске выдаёт еденицу, жму ок, закрывается
Я только начал изучать AutoIt , так что не ругайтесь если я тут бред написал ;)
p.s. Скрипт суммы числа мне любезно предоставили в одной из тем.
Код:
$Number1 = 0 ; Последние 3 цифры
$Number2 = 0 ; Первые 3 цифры
$Itog = 0 ; Общее колличество
Do
$iNumber1 = $Number1 ; Сумма последних 3 цифр
$iSumma1 = 0
$aNumber1 = StringSplit($iNumber1, '')
If IsArray($aNumber1) Then
For $i = 1 To $aNumber1[0]
$iSumma1 += $aNumber1[$i]
Next
EndIf
$iNumber2 = $Number2 ; Сумма первых 3 цифр
$iSumma2 = 0
$aNumber2 = StringSplit($iNumber2, '')
If IsArray($aNumber2) Then
For $i = 1 To $aNumber2[0]
$iSumma2 += $aNumber2[$i]
Next
EndIf
If $iSumma1=$iSumma2 Then $Itog = $Itog + 1 ; Если суммы равны прибавляем 1 к итоговому числу
If $Number1 = 999 Then $Number2 = $Number2 + 1 Or $Number1 = 0 ; Если перебор дошёл до номера 000.999 то мнеяем его на 001.000
$Number1 += 1 ; Следущий билетик
Until $Number1 + $Number2 = 54 ; Когла перебраны все билеты до 999.999 заканчиваем цикл
If $Number1 + $Number2 = 54 Then MsgBox (0, "Колличество счастливых билетов", $Itog) ; И смотрим что поучилось =)
При запуске выдаёт еденицу, жму ок, закрывается
Я только начал изучать AutoIt , так что не ругайтесь если я тут бред написал ;)
p.s. Скрипт суммы числа мне любезно предоставили в одной из тем.