将一个八进制的数015转换成十进制并输出,这个程序怎么写?编程 谢谢
来源:百度知道 编辑:UC知道 时间:2024/06/03 03:38:17
我先回答,给分啊!3Q
{Pascal:}
const jz=8;{进制=8}
var s:string;i,j,l,t,ans:integer;{ans为结果}
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(ans);
end.