ride.bak

来自「USACO 1.1.1 美国信息学奥林匹克竞赛第一题题解。 http://」· BAK 代码 · 共 29 行

{
ID: lfzh1991
PROG: ride
LANG: PASCAL
}
program ride;
var h,f:file of text;
    a,b:string;
    an,bn,i,n:longint;
begin assign(input,'ride.in');
      assign(output,'ride.out');
      reset(input);
      rewrite(output);
      readln(a);
      readln(b);
      an:=1;
      bn:=1;
      for i:=1 to 6 do
        begin an:=(ord(a[i])-ord('A')+1)*an;
              bn:=(ord(b[i])-ord('A')+1)*bn;
              an:=an mod 47;
              bn:=bn mod 47;
        end;
      if an=bn then writeln('GO')
               else writeln('STAY');
      close(input);
      close(output);
end.