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
test23
practica 9 ejercicio 7
JohnnyHCao
Huong11a2@
Menukar nilai1
5
JOAO PEDRO REIS PEREIRA CORREA 600622602
6
Ipis unazad ulancana lista
Урок 6. Задача 9 (1533). Два самых маленьких числа