level 12
var x,i:longint;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2013年12月20日 14点12分
2
嗯对 我做出来了 一样的 问个问题哈好想有一个是longint的两倍,int64?
2013年12月21日 12点12分
回复 Sprite木宁木蒙 :是longint的2^8倍
2013年12月21日 14点12分
回复 Sprite木宁木蒙 :longword 无符号的longint(即longint的两倍)
2013年12月24日 13点12分
回复 Sprite木宁木蒙 :dword,无符号是longint2倍
2013年12月25日 04点12分
level 11
var x,i:longint;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2013年12月24日 01点12分
3
level 12
begin writeln(14348907) end.
2013年12月25日 04点12分
8
level 13
begin
writeln(14348907);
end.
2013年12月30日 04点12分
9
level 6
x:=15; y:=3; t:=1;
while x>0 do begin
if x and 1=1 then t:=t*y;
y:=y*y;
x:=x>>1;
end;
2013年12月30日 10点12分
10
level 6
var
i:longint;
x:int64;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2014年01月01日 05点01分
11