Goвно / Говнокод #21

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
REM 52.10.18. Напишите алгоритм подсчёта количества "счастливых" автобусных билетов.
REM (Билет называется "счастливым", если сумма первых трёх цифр номера билета равна
REM сумме последних трёх цифр.)

Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, f As Integer, g As Integer
Dim h As Integer REM Число "счастливых" билетов

h = -1 REM Число 000000 в набор автобусных билетов не входит. Его вычитаем.

For a = 0 To 9
    For b = 0 To 9
        For c = 0 To 9
            For d = 0 To 9
                For f = 0 To 9
                    For g = 0 To 9
                        If a + b + c = d + f + g Then h = h + 1
                    Next
                Next
            Next
        Next
    Next
Next

L3.Text = "Число счастливых билетов " & h

Запостил: jura_k jura_k,

Комментарии (5) RSS

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓