Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
translator number system
function tns(x,ns:integer):string;//ns не более 36 var s:string; z:integer; begin z:=x; s:=''; while z<>0 do begin if ns>10 then if z mod ns >9 then s:= chr((z mod ns)-10 + ord('A')) + s else s:= chr((z mod ns) + ord('0')) + s else s:= chr((z mod ns) + ord('0')) + s; z:= z div ns; end; tns:=s; end; begin writeln(tns(101,5)); end.
run
|
edit
|
history
|
help
1
zadanye 2
1 25 6
zadanye 4
help me to fix this stupid thing, so tired about it
zadanye 3 в
DOKIMH-2
solar_system_array_n_planets
Task 3
rf cdx
Huong11a2@