8.1.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitanih je djeljivo sa 7.

Listing programa:

REM 08115005
CLS
PRINT "Od 10 brojeva koliko je djeljivih sa 7"
br = 0
FOR i = 1 TO 10
  PRINT i ". broj ";
  INPUT n
  IF n MOD 7 = 0 THEN
    br = br + 1
  END IF
NEXT i
PRINT "Sa 7 je djeljivo "; br; " brojeva"
END

Ispis na ekranu:

Index