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