14.3.. Prebrojati dvocifrene brojeve kod kojih je suma cifara veća od 7.
Listing programa:
REM 14314030
FOR i = 10 TO 99
j = i MOD 10 : REM jedice
d = INT(i / 10) : REM desetice
suma = d + j : REM suma
IF suma > 7 THEN
br = br + 1 : REM novi broj
END IF
NEXT i
PRINT "ima "; br; " brojeva djeljivih sa 7"
END
Ispis na ekranu:
Index
|