pascal语言提问

来源：百度知道 编辑：UC知道 时间：2024/07/04 16:05:47
your ride is here
pascal语言 ，答案 ，急征

var hui,tuan:string;SUM1,SUM2:longint;
function su(k:string):longint;
var i,SUM:longint;
begin
sum:=1;
for i:=1 to length(k) do sum:=sum*(ord(k[i])-64);
su:=sum;
end;
begin
readln(hui); readln(tuan);
sum1:=su(hui);sum2:=su(tuan);
if SUM1 mod 47=sum2 mod 47 then
writeln('GO') else writeln('STAY');
end.

什么规则？

是这个吗？

不知道