Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Hailstone number
1 4 6
zadanye 3 в
test10
ProjetInfo
(p,q,r)
подсчёт символов и цифр пока не точка
BubbleSor (slimst)
practica 7 ejercicio B8
test28
Please log in to post a comment.