8.3.. 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 p08312058;
CLS
PRINT "Od broja: ";
INPUT K
PRINT "Do broja: ";
INPUT N
PRINT "Djeljivi sa ";
INPUT A
P = 1
I = K
DO
  IF I MOD A = 0 THEN
    P = P * I
  END IF
  I = I + 1 
LOOP UNTIL I > N
PRINT "PROIZVOD PRIRODNIH BROJEVA DJELJIVIH SA"; A;" OD "; K ; " DO "; N; " je "; P
END

Ispis na ekranu:

Index