DECLARE SUB CHECH(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL SERIES(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"POSITIVE NO."
ELSEIF N<0 THEN
PRINT"NEGATIVE NO."
ELSE
PRINT"NEUTRAL NUMBER"
END IF
END SUB
CLS
INPUT"ENTER ANY NUMBER";N
CALL SERIES(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"POSITIVE NO."
ELSEIF N<0 THEN
PRINT"NEGATIVE NO."
ELSE
PRINT"NEUTRAL NUMBER"
END IF
END SUB
Comments
Post a Comment