8.3.. Naći proizvod prirodnih brojeva u intervalu od k do n koji su deljivi sa 2 i 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 3 bez ostatka).

Listing programa:

REM p08312057;
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 I SA 3 OD "; K ; " DO "; N; " je "; P
END

Ispis na ekranu:

Index