8.3.. Napisati program za prebrojavanje djeljivih sa 3 prirodne brojeve od 1do n.

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

Listing programa:

REM p08312080
CLS
PRINT "Do broja: ";
INPUT N
BR = 0
I = 1
DO
  IF I MOD 3 = 0 THEN
    BR = BR + 1
  ENDIF
  I = I + 1 
LOOP UNTIL I > N
PRINT "Broj djeljivih sa 3 do "; N; " je : " ; BR
END

Ispis na ekranu:

Index