8.1.. Napisati program za prebrojavanje prirodnih brojeva koji nisu djeljivi sa 3 u intervalu od k do n.

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

Listing programa:

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

Ispis na ekranu:

Index