14.3.. Prebrojati dvocifrene brojeve kod kojih je pri djeljenju sa 3 ostatak 1.
REM 14313020
br = 0
FOR i = 10 TO 99 : REM dvocifreni brojevi
: REM ostatak dijeljenja sa 3 je 1?
IF i MOD 3 = 1 THEN
br = br + 1 : REM ostatak dijeljenja sa 3 je 1 - uvecaj brojac
END IF
NEXT i
PRINT "Broj dvocifrenih brojeva kod kojih je pri djeljenju sa 3 ostatak 1 = "; br
END
Ispis na ekranu:
Broj dvocifrenih brojeva kod kojih je pri djeljenju sa 3 ostatak 1 je 30
Ispis na ekranu:
Index
|