14.21. Izračunati sumu parnih dvocifrene brojeva (djeljivih sa 2).
Opis rješenja: Koristi se IF naredba. Provjera djeljivosti se izvodi po principu da li je ostatak dijeljenja sa 2 jednak nuli (naredba MOD). Za slučajeve kad je ostatak dijeljenja sa 2 jednak 0 izračunava se kumulativna suma s:=s+i.
Primjeri parnosti:
0 MOD 2 = 0
1 MOD 2 = 1
2 MOD 2 = 0
3 MOD 2 = 1
4 MOD 2 = 0
Listing programa:
REM 14212001
s = 0
FOR i = 10 TO 99 : REM dvocifreni brojevi
: REM paran dvocifren brojv?
IF i MOD 2 = 0 THEN
s = s + i : REM da, uvecaj sumu
END IF
NEXT i
PRINT "Suma parnih = "; s : REM ispis
END
Ispis na ekranu:
Index
|