如果发现广告等破坏行为,请尽量将条目恢复到较早的版本而不是把相应内容直接删除,谢谢合作。
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); s2:=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); jids1:=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.
var
s,c:string; i,j,n,m,x,y:longint;
begin
readln(s);
readln(c);
for i:=1 to length(s) do x:=(x*ord(s[i])-64)mod 47;
for i:=1 to length(c) do y:=(y*ord(c[i])-64)mod 47;
if x=y then writeln('GO') else writeln('STAY');
end.

