8.3.. Ispis paranih i neparnih brojeva od 1 do n (test parnosti i neparnosti).
Listing programa:
REM p08311008 Parani i neparni brojevi
CLS
PRINT "Do broja: ";
INPUT N
I = 1
DO
IF I MOD 2 = 0 THEN
PRINT I " je paran"
ELSE
PRINT I "je neparan"
END IF
I = I + 1
LOOP UNTIL I > N
END
Ispis na ekranu:
Index
|