讨论 / 谁这么牛,做出来了。
神人徐 2014-05-29 13:28:30
点我顶贴 收藏 删除
Rjmh,khi
#1 神人徐@2014-05-29 19:30:51
回复 删除
膜拜啊
#2 vook@2014-05-30 19:41:41
回复 删除
数据应该是有问题的啊

#3 creeper-61224@2015-03-18 22:41:37
回复 删除
测试点8是什么,我错了
#4 风之天武@2016-11-03 00:10:02
回复 删除
我也是数据点8炸了,不知道为什么,求解

program ex;

var

shu:array[1..9999] of string;

s:string;

l,m,n,k,i,j,sum,len:longint;

begin

read(l,k);

sum:=l;

str(sum,s);

len:=length(s);

shu[1]:=copy(s,len-k+1,k);

for i:=2 to 9999 do

begin

sum:=sum*l;

str(sum,s);

len:=length(s);

shu[i]:=copy(s,len-k+1,k);

for j:=1 to i-1 do

begin

if shu[j]=shu[i] then

begin

write(i,' ',j);

halt;

end;

end;

if len>5 then

begin

s:=copy(s,len-4,5);

val(s,sum);

end;

end;

end.

#5 2017beijiang99@2018-04-14 18:07:38
回复 删除
告诉你们,出题人都没过
查看更多回复
提交回复