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

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 p08112074
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 djeljivih sa 3 u intervalu od", k "do" n, "ima", BROJ
100 END

Ispis na ekranu:

Index