8.3.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitanih je djeljivo sa 7.
Listing programa:
REM 08315004
CLS
i = 1
DO
PRINT "Unesi"; i;
INPUT "broj:", k
IF k MOD 7 = 0 THEN
br = br + 1
i = i + 1
ELSE
i = i + 1
END IF
LOOP UNTIL i = 11
PRINT "Djeljivih je:", br;
PRINT "brojeva."
END
Ispis na ekranu:
Index
|