14.6.. Napisati program za izračunavanje sume trocifrenih brojeva koji nisu djeljivi sa 3.
Opis rješenja: Kumulativna suma se izračunava sa suma =suma + i Provjera djeljivosti se izvodi funkcijom MOD u naredbi IF i MOD 3 <> 0 THEN. Ako ostatak dijeljenja sa 3 nije jednak 0 to znači da trocifreni broj nije djeljiv sa 3 te se vrijednost broja dodaje na sumu.
Listing programa:
REM 14612013
PRINT "Trocifren broj - Suma - nisu djeljivi sa 3"
suma = 0
FOR i = 100 TO 999 : REM za trocifrene brojeve radi
: REM nisu djeljivi sa 3?
IF i MOD 3 <> 0 THEN
suma = suma + i : REM da, uvecaj sumu
END IF
NEXT i
PRINT "Suma "; suma : REM ispis
END
Ispis na ekranu:
Index
|