8.3.. Napisati program za računanje sume cifara 10 učitanih prirodnih brojeve.

Opis rješenja:

Listing programa:

REM 08312186 do until 
CLS
i = 1
DO
    PRINT "Unesi"; i;
    INPUT "broj ", n
    DO
        k = n MOD 10
        s = s + k
        n = INT(n / 10)
    LOOP UNTIL n = 0
    i = i + 1
LOOP UNTIL I > 10
PRINT "Suma je: ", s
END

Ispis na ekranu:

Index