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
Zadanie 3 a
Opdracht_1
test27
IPR2
5 5
quadratic equation
Tri 1.0
Задачи к § 66 «Символьные строки» Задача №112336. Замена a-b в последовательности символов
Pokazivac-dinamicka alokacija memorije
Задание 27 (окончательный вариант) эффект и неэффект