2 的幂次方(NOIP1998)PASCAL
INPUT137OUTPUT2(2(2)+2+2(0)+2(2+2(0))+2(0)任何一个正整数都可以用2的幂次方表示:如137=2^7+2^3+2^0同时约定用括号来...
INPUT
137
OUTPUT
2(2(2)+2+2(0)+2(2+2(0))+2(0)
任何一个正整数都可以用2 的幂次方表示:
如137=2^7+2^3+2^0
同时约定用括号来表示次方 即a^b可表示为a(b)
所以137可表示为
2(7)+2(3)+2(0)
进一步:7=2^2+2+2^0(2^1用2 表示)
3=2+2^0
所以137可表示为:2(2(2)+2+2(0))+2(2+2(2(0))+2(0) 展开
137
OUTPUT
2(2(2)+2+2(0)+2(2+2(0))+2(0)
任何一个正整数都可以用2 的幂次方表示:
如137=2^7+2^3+2^0
同时约定用括号来表示次方 即a^b可表示为a(b)
所以137可表示为
2(7)+2(3)+2(0)
进一步:7=2^2+2+2^0(2^1用2 表示)
3=2+2^0
所以137可表示为:2(2(2)+2+2(0))+2(2+2(2(0))+2(0) 展开
2个回答
展开全部
var
n:integer;
function str(n:integer):string;
var
s:string;
i:integer;
t:boolean;
begin
if n=0 then begin str:='0';exit;end;
if n=1 then begin str:='2(0)';exit;end;
if n=2 then begin str:='2';exit;end;
s:='';
repeat
s:=chr(n mod 2+ord('0'))+s;
n:=n div 2;
until n=0;
t:=true;
for I := 1 to length(s)-2 do
if s[i]='1' then
begin
if t then
begin str:='2('+str(length(s)-i)+')';t:=false;end
else
str:=str+'+2('+str(length(s)-i)+')';
end;
if s[length(s)-1]='1' then
begin
if t then
begin str:='2';t:=false;end
else
str:=str+'+2';
end;
if s[length(s)]='1' then
begin
if t then
begin str:='2(0)';t:=false;end
else
str:=str+'+2(0)';
end;
end;
begin
readln(n);
writeln(str(n));
end.
n:integer;
function str(n:integer):string;
var
s:string;
i:integer;
t:boolean;
begin
if n=0 then begin str:='0';exit;end;
if n=1 then begin str:='2(0)';exit;end;
if n=2 then begin str:='2';exit;end;
s:='';
repeat
s:=chr(n mod 2+ord('0'))+s;
n:=n div 2;
until n=0;
t:=true;
for I := 1 to length(s)-2 do
if s[i]='1' then
begin
if t then
begin str:='2('+str(length(s)-i)+')';t:=false;end
else
str:=str+'+2('+str(length(s)-i)+')';
end;
if s[length(s)-1]='1' then
begin
if t then
begin str:='2';t:=false;end
else
str:=str+'+2';
end;
if s[length(s)]='1' then
begin
if t then
begin str:='2(0)';t:=false;end
else
str:=str+'+2(0)';
end;
end;
begin
readln(n);
writeln(str(n));
end.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询