RosettaCodeData/Task/Even-or-odd/Applesoft-BASIC/even-or-odd.basic
2023-07-01 13:44:08 -04:00

4 lines
128 B
Text

10 INPUT "ENTER A NUMBER: ";N
20 IF N/2 <> INT(N/2) THEN PRINT "THE NUMBER IS ODD":GOTO 40
30 PRINT "THE NUMBER IS EVEN"
40 END