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