为什么只得了30分?

program aa;

var

s1:string;

chuan:char;

a,b,c,d,e,n:integer;

yuan,mi,cun:array[0..10000] of string;

zhen:array[0..1000,1..100] of string;

begin

read(s1);

a:=length(s1);

while a>0 do

begin

b:=trunc(sqrt(a));

for c:=1 to b do

for d:=1 to b do

zhen[c,d]:=s1[(c-1)*b+d+e];

n:=e;

for c:=1 to b do

for d:=1 to b do

e:=(c-1)*b+d;

e:=e+n;

for c:=1 to b do

for d:=1 to b do

write(zhen[d,c]);

a:=a-b*b;

end;

end.

0 条评论

目前还没有评论...

信息

ID
1480
难度
7
分类
字符串 | 动态规划 | 背包 点击显示
标签
递交数
800
已通过
138
通过率
17%
被复制
3
上传者