Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
19
Task/Even-or-odd/FreeBASIC/even-or-odd.basic
Normal file
19
Task/Even-or-odd/FreeBASIC/even-or-odd.basic
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
' FB 1.05.0 Win64
|
||||
|
||||
Dim n As Integer
|
||||
|
||||
Do
|
||||
Print "Enter an integer or 0 to finish : ";
|
||||
Input "", n
|
||||
If n = 0 Then
|
||||
Exit Do
|
||||
ElseIf n Mod 2 = 0 Then
|
||||
Print "Your number is even"
|
||||
Print
|
||||
Else
|
||||
Print "Your number is odd"
|
||||
Print
|
||||
End if
|
||||
Loop
|
||||
|
||||
End
|
||||
Loading…
Add table
Add a link
Reference in a new issue