怎么将23这个数转成八进制?

问题描述:

怎么将23这个数转成八进制?

我先回答,给分啊!3Qconst jz=8;var s:string;i,j,l,t,ans:integer;begin readln(s); l:=length(s); for i:=1 to l do begin t:=ord(s[i])-48; for j:=1 to l-i do t:=t*jz; ans:=ans+t; end; writeln...