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