题目请见:http://www.nocow.cn/index.php/Translate:USACO/ride 第一题不解释,直接贴代码。 { ID:asdcyt01 PROB:ride LANG:PASCAL } program ride(input,output); var s1,s2:string; a,b,i:longint; begin assign(input,'ride.in');assign(output,'ride.out'); reset(input);rewrite(output); readln(s1);readln(s2); a:=1;b:=1; for i:=1 to length(s1) do a:=a*(ord(s1[i])-64); for i:=1 to length(s1) do b:=b*(ord(s2[i])-64); if a mod 47 = b mod 47 then writeln('GO') else writeln('STAY'); end .