zadach158.BAS

{* Задача158 *}

REM basic

' Посчитать число счастливых билетов в катушке
' автобусных билетов с номерами от 000 000
' до 999 999. Счастливым считается билет, у которого сумма
' первых трех цифр равна сумме последних
' трех цифр


CLS
For i=0 To 9
  For j=0 To 9
     For k=0 To 9
        For l=0 To 9
           For m=0 To 9
   For n=0 To 9
If i+j+k=l+m+n Then s=s+1
              Next n
            Next m
          Next l
       Next k
  Next j
Next i
PRINT "Число счастливых билетов="; s 
End