哪错了,在自己机上是对的,USACO测评是是错了,WHY [复制链接]

{
ID:tzamyha2
PROG:ride
LANG:PASCAL
}
Var
  s1,s2:string;
  m,n,i,j:LongInt;
Begin
  Assign(Output,'ride.out');
  Rewrite(Output);
  Readln(s1);
  Readln(s2);
  m:=1;n:=1;
  For i:=1 to length(s1) Do
      m:=m*(Ord(s1)-64);
  For i:=1 to length(s2) Do
      n:=n*(Ord(s2)-64);
  m:=m mod 47;
  n:=n mod 47;
  If m=n Then Writeln('GO') Else Writeln('STAY');
  Close(Output);
End.

已解决,忘加接口了

。。。

USACO的测评系统需要文件读入，这一点跟vijos不同。注意一下就可以了。