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