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
|