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
Zad 3 a
Giu
test22
Kotak_Adit
2sdfghkl
Weather
12345
tablas
nested for loop a(iii)
j en ai marre