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

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

Listing programa:

REM p08112075
CLS
BROJ = 0
INPUT "Unesite broj n: ", n 
INPUT "Unesite broj l: ", l
FOR I = 1 TO n
  IF I MOD l = 0 THEN
    BROJ = BROJ + 1
  END IF
NEXT I 
PRINT "Brojeva od 1 do", n "djeljivih sa", l "ima", BROJ
END

Ispis na ekranu:

Index