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