program p1458;
 var common:array[0..500,0..500]of integer;
     st:array[1..2,1..10000]of char;
     len:array[1..2]of integer;

 procedure init;
  var s:char;
  begin
   repeat
    read(s);
    if (s=' ')  or (s=#13)or (s=#10)then break;
    inc(len[1]);
    st[1,len[1]]:=s;
   until false;
   repeat
    read(s);
   until (s=' ')  or (s=#13)or (s=#10);
   len[2]:=1;
   st[2,len[2]]:=s;
   repeat
    read(s);
    inc(len[2]);
    st[2,len[2]]:=s;
   until (s=' ')  or (s=#13)or (s=#10);
  end;

 procedure main;
  var i,j:integer;
  begin
   for i:=1 to len[1] do
    for j:=1 to len[2] do
     begin
      if st[1,i]=st[2,j] then common[i,j]:=common[i-1,j-1]+1
         else
          begin
           if common[i,j-1]>common[i-1,j] then common[i,j]:=common[i,j-1]
                                          else common[i,j]:=common[i-1,j];
          end;
     end
  end;

 begin
  repeat
   fillchar(len,sizeof(len),0);
   fillchar(common,sizeof(common),0);
   init;
   main;
   writeln(common[len[1],len[2]]);
  until eof;
 end.

• Re:WA得不明不白，谁帮我看看 -- 果然是针对PASCAL的 (0) zdker 2005-08-30 22:37:51