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
|