Реализации алгоритмов/Подсчёт счастливых билетов: различия между версиями

Содержимое удалено Содержимое добавлено
Нет описания правки
Количество счастливых билетов на FreeBASIC'е
Строка 70:
}
</source>
== FreeBASIC ==
 
<source lang="freebasic">
Dim intFileNumber As Integer = FreeFile()
Open "LuckyTicket.txt" For Output Encoding "utf8" As intFileNumber
Dim As Integer i1, i2, i3, i4, i5, i6, TicketsCount
For i1 = 0 To 9
For i2 = 0 To 9
For i3 = 0 To 9
For i4 = 0 To 9
For i5 = 0 To 9
For i6 = 0 To 9
If i1 + i2 + i3 = i4 + i5 + i6 Then
Print #intFileNumber, (i1 & i2 & i3) & " " & (i4 & i5 & i6)
TicketsCount += 1
End If
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Print #intFileNumber, "Количество счастливых билетов равно " & TicketsCount
Close(intFileNumber)
</source>
== Ruby ==
<source lang="ruby">