8.3.. Ispisati sve trocifrene brojeve čiji je proizvod cifara jednak 48. Riješiti sa jednom petljom.
Opis rješenja:
Listing programa:
REM 08312183
CLS
i = 100
DO
x = INT(i / 100)
y = i MOD 10
z = (i - (x * 100 + y)) / 10
IF x * y * z = 48 THEN PRINT i;
i = i + 1
LOOP UNTIL I > 999
END
Ispis na ekranu:
Index
|