8.1.. 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:

REM p08112060
CLS
INPUT "Unesi granice intervala:"; k, n
P = 1
FOR I = k TO n
  IF I MOD 2 = 0 AND I MOD 3 <> 0 THEN P = P * I
NEXT I
PRINT "Proizvod je:"; P
END

Ispis na ekranu:

Index