8.3.. Naći proizvod prirodnih brojeva u intervalu od k do n koji su deljivi sa 2 a nisu djeljivi sa 3.

Opis rješenja: Provjera djeljivosti izvodi se logičkim izrazom IF ((i MOD 2 = 0) AND (i MOD 3 <> 0)) THEN (djeljivi sa 2 i nisu djeljivi sa 3).

Listing programa:

PROGRAM p08312060;
CLS
PRINT "Od broja: ";
INPUT K
PRINT "Do broja: ";
INPUT N
P = 1
I = K
DO
  IF ((I MOD 2 = 0) AND (I MOD 3 <> 0)) THEN
    P = P * I
  END IF
  I = I + 1 
LOOP UNTIL I > N
PRINT "PROIZVOD PRIRODNIH BROJEVA DJELJIVIH SA 2, A NEDJELJIVIH SA 3 OD "; K ; " DO "; N; " je "; P
END

Ispis na ekranu:

Index