14.6.. Napisati program za izračunavanje sume trocifrenih brojeva sa različitim prvom i trećom cifrom.
Opis rješenja: Početna vrijednost sume je s=0; a kumulativna suma se izračunava sa s = s + i;. Provjera djeljivosti se izvodi naredbom IF s <> j THEN. Ako su razlčite dijeljenja sa 3 jednak 0 to znači da je razlika prve dvije cifre djeljiva sa 3.
Listing programa:
REM 14612004
PRINT "Trocifreni brojevi - Suma brojeva sa razlicitom prvom i trecom cifrom"
suma = 0
FOR i = 100 TO 999
s = INT(i / 100) : REM stotice
j = i MOD 10 : REM jedinice
: REM različita prva i treća cifra?
IF s <> j THEN
suma = suma + i : REM različita prva i treća cifra?
END IF
NEXT i
PRINT "Suma "; suma
END
Ispis na ekranu:
Index
|