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