ysk语 2014-03-28 18:11:33
点我顶贴
收藏
删除
var
a,b:string;
s:array[1..10000] of longint;
t,len1,len2,i,j:longint;
begin
readln(a);
readln(b);
len1:=length(a);
len2:=length(b);
t:=0;
for i:=1 to len1 do
for j:=1 to len2 do
if a[i]=b[i] then
begin
inc(t);
s[i]:=ord(a[i]);
end;
for i:=1 to t do
write(chr(s[i]));
end.