Question

Написать программу на языке бейзик
нахождения всех трехзначных чисел, у
которых все цифры различны, а также
которые кратны семи не только сами, но и
сумма цифр этих чисел. помогите пожалуйста!

Answer 1

CLS
n = 0
FOR i = 1 TO 9
   FOR j = 0 TO 9
      FOR k = 0 TO 9
         c1 = i <> j AND i <> k AND j <> k
         IF c1 THEN c1 = (i + j + k) MOD 7 = 0
         IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0
         IF c1 THEN
            PRINT i; j; k
            n = n + 1
         END IF
      NEXT k
   NEXT j
NEXT i
IF n = 0 THEN PRINT "Нет решения"

Тестовое решение:
 3  2  9
 3  9  2
 5  1  8
 5  8  1