[codep]
```cpp
var
ans,ans1,x,i:longint;
s1,s2:string;
begin
readln(s1);
readln(s2);
ans:=1;
ans1:=1;
for i:=1 to length(s1) do
begin
x:=ord(s1[i])-64;//用ord函数通过ass码转换第几个字母
ans:=ans*x;//累计成绩
end;
ans:=ans mod 47;//mod47
for i:=1 to length(s2) do//处理同上
begin
x:=ord(s2[i])-64;
ans1:=ans1*x;
end;
ans1:=ans1 mod 47;
if ans=ans1 then writeln('GO')//按题意,相同则输出“GO”
else writeln('STAY');//否则输出“STAY”
end.
[/codep]
```
by LEXUGE @ 2015-10-15 14:27:24