RosettaCodeData/Task/Even-or-odd/Applesoft-BASIC/even-or-odd.basic

5 lines
128 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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