Написать программу на языке бейзик нахождения всех трехзначных чисел, у которых все цифры различны, а также которые кратны семи не только сами, но и сумма цифр этих чисел. !
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 "Нет решения"
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