Написать программу, которая напечатает все четырехзначные числа, сумма цифр которых равна введенному числу — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
DO
    INPUT "vvedite n"; n
LOOP UNTIL n <= 36
FOR i = 1000 TO 9999
    b = i
    s = 0
    DO
        s = s + (b MOD 10)
        b = b \ 10
    LOOP UNTIL b = 0
    IF s = n THEN PRINT i;
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment