8.1.. Napisati program da nađe proizvod prirodnih brojeva od a do b djeljivih sa l i koliko ih ima.

Opis rješenja: Izdvajanje djeljivih sa l se izvodi logičkim izrazom i MOD l = 0 u intervalu od a do b.

Listing programa:

REM p08112083;
CLS
BROJ = 0
PROIZVOD = 1
INPUT "Unesite broj a: ", a
INPUT "Unesite broj b: ", b
INPUT "Unesite broj l: ", l
IF a < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSEIF b < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSEIF l < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSE
FOR I = a TO b
  IF I MOD l = 0 THEN
    PROIZVOD = PROIZVOD * I
    BROJ = BROJ + 1
  END IF
NEXT I
END IF
PRINT "Od",a "do", b "ima", BROJ "brojeva koji su djeljivi sa", l "a njihov zbir iznosi: ", PROIZVOD
100 END

Ispis na ekranu:

Index