travel1.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 17 行

program travel(input,output); 
var 
　total,i,m:longint; 
　s1,s2:string; 
begin 
　assign(input,"travel.in"); 
　assign(output,"travel.out"); 
　reset(input);rewrite(output); 
　readln(s1);　readln(s2); total:=1; 
　for i:=1 to length(s1)-1 do 
　　begin 
　　　m:=pos(s1[i],s2); 
　　　if m>1 then if s[i+1]=s[m-1] then total:=total*2; 
　　end; 
　writeln(total); close(input);　close(output); 
end.