Примеры программ на языке QBASIC

Генерация чисел с заданной суммой цифр


REM Генерация чисел с заданной суммой цифр
INPUT "Введите число в дипазоне от 0 до 27 : ", n
PRINT "Список чисел, сумма цифр которых равна "; n; " :"
FOR a2% = 0 TO 9
  FOR a1% = 0 TO 9
    FOR a0% = 0 TO 9
      IF a2% + a1% + a0% = n THEN
        PRINT USING "####"; 100 * a2% + 10 * a1% + a0%;
      END IF
NEXT a0%, a1%, a2%
END