Question

найти все делители числа 1234 на языке программирования Qbasic
помогите пожалуйста!!

Answer 1

Ответ:

1)

QBasic/QuickBASICВыделить код

1      x = 100

2    WHILE x <= 999

3     n = x

4    s = 0

5   WHILE n

6     s = s + n MOD 10

7     n = n \ 10

8      WEND

9    IF s MOD 7 = 0 AND x MOD 7 = 0 THEN PRINT x;

10    x = x + 1

11    WEND

2)

QBasic/QuickBASICВыделить код

1    INPUT n

2   WHILE i < n

3    i = i + 1

4    IF n MOD i = 0 THEN PRINT i;

5    WEND

Объяснение:

Сделай мой ответ лучшим)