7 lines
150 B
Text
7 lines
150 B
Text
100 DEF ODD(X)=MOD(X,2)
|
|
110 INPUT PROMPT "Enter a number: ":X
|
|
120 IF ODD(X) THEN
|
|
130 PRINT X;"is odd."
|
|
140 ELSE
|
|
150 PRINT X;"is even."
|
|
160 END IF
|