REM
p08112077
CLS
BROJ =
0
PROIZVOD =
1
INPUT
"Unesite broj a: ", a
INPUT
"Unesite broj b: ", b
IF
b <
0
THEN
PRINT
"BROJ NIJE PRIRODAN"
GOTO
100
ELSEIF b <
0
THEN
PRINT
"BROJ NIJE PRIRODAN"
GOTO
100
ELSE
FOR
I = a
TO
b
PROIZVOD = PROIZVOD * I
BROJ = BROJ +
1
NEXT
I
END
IF
PRINT
"Prirodnih brojeva u intervalu od", a "
do
", b "ima", BROJ "a njihov prozivod iznosi: ", PROIZVOD
100
END