代码：
var c,t:ansistring;

procedure cin(var s1:ansistring);
var mid:char;
begin
  s1:='';
  read(mid);
  while (mid<>' ')and(ord(mid)<>10)do begin
    s1:=s1+mid;
    read(mid);
  end;
end;

function judge(ss,tt:ansistring):boolean;
var i,j,mid:longint;
begin
  i:=1;
  mid:=length(ss);
  for j:=1 to length(tt) do begin
    if tt[j]=ss[i] then begin
      inc(i);
      if i=mid+1 then break;
    end;
  end;
  if i=mid+1 then exit(true) else exit(false);
end;

begin
  while not eof do begin
    c:='';
    t:='';
    cin(c);
    cin(t);
    if (ord(c[1])=13)or(ord(c[1])=15)or(ord(c[1])=10) then halt;
   if judge(c,t) then writeln('Yes') else writeln('No');
  end;
end.

第一百题了，什么时候才有500题啊...

• Re:100题，留言飘过~~ (839) bobchennan 2010-11-10 17:28:09