63 条题解
-
0
不是傻瓜 LV 4 @ 2008-11-12 21:57:42
DP！
-
0
tracy-henry LV 10 @ 2008-11-12 18:25:11
又来密码。。
-
-1
55555555我哪里错了。。高手指点一下....(本人菜鸟)
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案错误...
├ Hint: 长度为69 ├ 标准行输出 I ona...
├ 错误行输出 ItosI...
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案错误...
├ Hint: 长度为1500 ├ 标准行输出 ...TykNveK...
├ 错误行输出 ...TykBAhD...
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案错误...
├ Hint: 长度为15500 ├ 标准行输出 unMMZ...
├ 错误行输出 uVVXo...
├ 测试数据 09：答案错误...
├ Hint: 长度为35500 ├ 标准行输出 CUWgX...
├ 错误行输出 CGWHQ...
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：60 有效耗时：0msprogram ks;
var s:ansistring;
a:array[1..10000] of array[1..300,1..300]of char;
c:array[1..10000]of longint;
n,k,j,i,t,p:longint;
begin
readln(s);
n:=length(s);
k:=256;
while n0 do
begin
while k*k>n do
dec(k);
j:=n div (k*k);
for i:=1 to j do
begin
inc(t);
c[t]:=k;
end;
n:=n mod (k*k);
end;
k:=0;
for p:=1 to t do
begin
for i:=1 to c[p] do
for j:=1 to c[p] do
begin
inc(k);
a[p]:=s[k];
end;
end;
for p:=1 to t do
begin
for j:=1 to c[p] do
for i:=1 to c[p] do
write(a[p]);
end;
writeln;
end.
不是傻瓜
LV 4
@ 2008-11-12 21:57:42
