8.3..Pomnoži parne brojeve od A do B.

Listing programa:

REM 08211019;
CLS
PRINT "Od broja: ";
INPUT A
PRINT "Do broja: ";
INPUT B
P=1
I = A
DO
  IF I MOD 2 = 0 THEN
    P = P * I
  END IF
  I = I + 1 
LOOP UNTIL I > B
PRINT "PROIZVOD PRIRODNIH PARNIH BROJEVA OD "; A ; " DO "; B; " je "; P
END

Ispis na ekranu:

Index