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

7 lines
118 B
Plaintext

10 CLS
20 FOR n = -5 TO 5
30 PRINT n;
40 IF n % 2 <> 0 THEN PRINT " is odd" ELSE PRINT " is even"
50 NEXT n
60 END