8.1.. Naći proizvod prirodnih brojeva u intervalu od k do n koji su deljivi sa a.

Opis rješenja: Provjera djeljivosti izvodi se logičkim izrazom i MOD a = 0 (djeljivi sa a bez ostatka).

Listing programa:

REM p08112058
CLS
INPUT "Unesi granice intervala:"; k, n
INPUT "Unesi djelilac:"; a
P = 1
FOR I = k TO n
  IF I MOD a = 0 THEN P = P * I
NEXT I
PRINT "Proizvod je:"; P
END

Ispis na ekranu:

Index