8.3.. Ispisati sve četvorocifrene brojeve čiji je proizvod cifara jednak 120. Riješiti sa jednom petljom.

Opis rješenja:

Listing programa:

REM 08312185 do until 
CLS
i = 1000
DO
    a = INT(i / 1000)
    b = INT(i / 100) - (a * 10)
    c = i MOD 10
    d = (i - (a * 1000) - (b * 100) - c) / 10
    IF a * b * c * d = 120 THEN PRINT i; else
    i = i + 1
LOOP UNTIL I > 9999
END

Ispis na ekranu:

Index