mirror of
https://github.com/microsoft/monaco-editor.git
synced 2025-12-22 08:10:11 +01:00
10 lines
No EOL
241 B
Text
10 lines
No EOL
241 B
Text
begin:
|
|
TextWindow.Write("Enter a number: ")
|
|
num = TextWindow.ReadNumber()
|
|
remainder = Math.Remainder(num, 2)
|
|
If (remainder = 0) Then
|
|
TextWindow.WriteLine("The number is Even")
|
|
Else
|
|
TextWindow.WriteLine("The number is Odd")
|
|
EndIf
|
|
Goto begin |