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

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

Listing programa:

REM p08112082
CLS
BROJ = 0 
PROIZVOD = 1
INPUT "Unesite broj a: ", a
INPUT "Unesite broj b: ", b
IF a < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSEIF b < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSE
FOR I = a TO b
  IF I MOD 5 = 0 THEN
    PROIZVOD = PROIZVOD * I
    BROJ = BROJ + 1
NEXT I
END IF
PRINT "Prirodnih brojeva u intervalu od", a "do", b "djeljivih sa 5 ima", BROJ "a njihov proizvod iznosi: ", PROIZVOD
100 END

Ispis na ekranu:

Index