aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Binary-digits/EasyLang/binary-digits.easy
View file

@ -1,16 +1,14 @@
proc toBinary num . binary$ .
binary$ = ""
func$ bin num .
b$ = ""
if num = 0
binary$ = "0"
b$ = "0"
.
while num > 0
binary$ = num mod 2 & binary$
b$ = num mod 2 & b$
num = num div 2
.
return b$
.
call toBinary 2 binary$
print binary$
call toBinary 50 binary$
print binary$
call toBinary 9000 binary$
print binary$
print bin 2
print bin 50
print bin 9000