比赛 20091103 评测结果 AAAAAAAAAA
题目名称 牛棚回声 最终得分 100
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-03 08:41:35
显示代码纯文本
program echo;
var
  i,max,l:integer;
  s1,s2,t1,t2:string;
begin
  assign(input,'echo.in');
  assign(output,'echo.out');
  reset(input);
  rewrite(output);
  readln(s1);
  readln(s2);
  if length(s1)<length(s2) then l:=length(s1) else l:=length(s2);
  max:=0;
  for i:=1 to l do
  begin
    t1:=copy(s1,1,i);
    t2:=copy(s2,length(s2)-i+1,i);
    if t1=t2 then max:=i;
    t1:=copy(s2,1,i);
    t2:=copy(s1,length(s1)-i+1,i);
    if t1=t2 then max:=i;
  end;
  writeln(max);
  close(input);
  close(output);
end.