8.1.. Napisati program za prebrojavanje prirodnih brojeva od k do n djeljivih sa l.

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

Listing programa:

REM p08142075
CLS
BROJ = 0
INPUT "Unesite broj k: ", k
INPUT "Unesite broj n: ", n
INPUT "Unesite broj l: ", l
IF k < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSEIF n < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSEIF l < 0 THEN
PRINT "BROJ NIJE PRIRODAN"
GOTO 100
ELSE
FOR I = k TO n
  IF I MOD l = 0 THEN
    BROJ = BROJ + 1
  END IF
NEXT I
END IF
PRINT "Prirodnih brojeva u intervalu od", k "do", n "djeljivih sa", l "ima", BROJ
100 END

Ispis na ekranu:

Index