Найти все делители числа - QBasic
Формулировка задачи:
1) Сумма цифр трехзначного числа кратно 7. Само число также делится на 7. Найти все эти цифры.
2) Дано натуральное число n. Найти все делители этого числа/
Очень прошу решить эти задачи через while и do wntil. И помочь уж мне наконец разобраться!
Решение задачи: «Найти все делители числа»
textual
Листинг программы
CLS FOR i = 100 TO 999 IF (i MOD 10 + i \ 10 MOD 10 + i \ 100) MOD 7 = 0 AND i MOD 7 = 0 THEN PRINT i NEXT
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д