如果发现广告等破坏行为,请尽量将条目恢复到较早的版本而不是把相应内容直接删除,谢谢合作。
Code:USACO/ride/Pascal
来自"NOCOW"
{ ID:skywind2 LANG:PASCAL TASK:ride } var s,s1,i,l,l1:longint; a,b:string; begin readln(a); readln(b); s:=1; s1:=1; l:=length(a); l1:=length(b); for i:=1 to l do s:=s*(ord(a[i])-64); for i:=1 to l1 do s1:=s1*(ord(b[i])-64); if s mod 47=s1 mod 47 then writeln('GO') else writeln('STAY'); end. { ID:z_zfzfz1 LANG:PASCAL TASK:ride } const a:array['A'..'Z']of integer =(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26); var s:string[6]; i,ji1,ji2:longint; begin assign (input,'ride.in'); assign (output,'ride.out'); reset (input); rewrite (output); readln (s); ji1:=1; ji2:=1; for i:=1 to length(s) do ji1:=ji1*a[s[i]]; readln (s); for i:=1 to length(s) do ji2:=ji2*a[s[i]]; if ji1 mod 47=ji2 mod 47 then writeln ('GO') else writeln ('STAY'); close (output); end.

