USACO 你的飞碟在这里-洛谷 1200

提意：

题目描述

众所周知，在每一个彗星后都有一只UFO。这些UFO时常来收集地球上的忠诚支持者。不幸的是，他们的飞碟每次出行都只能带上一组支持者。因此，他们要用一种聪明的方案让这些小组提前知道谁会被彗星带走。他们为每个彗星起了一个名字，通过这些名字来决定这个小组是不是被带走的那个特定的小组（你认为是谁给这些彗星取的名字呢？）。关于如何搭配的细节会在下面告诉你；你的任务是写一个程序，通过小组名和彗星名来决定这个小组是否能被那颗彗星后面的UFO带走。

小组名和彗星名都以下列方式转换成一个数字：最终的数字就是名字中所有字母的积，其中“A”是1，“Z”是26。例如，“USACO”小组就是21*19*1*3*15=17955。如果小组的数字 mod 47等于彗星的数字mod 47,你就得告诉这个小组需要准备好被带走！（记住“a mod b”是a除以b的余数；34 mod 10等于4）

写出一个程序，读入彗星名和小组名并算出用上面的方案能否将两个名字搭配起来，如果能搭配，就输出“GO”，否则输出“STAY”。小组名和彗星名均是没有空格或标点的一串大写字母（不超过6个字母）。

输入输出格式

输入格式：

第1行：一个长度为1到6的大写字母串，表示彗星的名字。

第2行：一个长度为1到6的大写字母串，表示队伍的名字。

输出格式：

输入输出样例

输入样例#1：

[输入1]COMETQHVNGAT[输入2]ABSTARUSACO

输出样例#1：

[输出1]GO[输出2]STAY

题解：

根据题意所列的算式做，然后除以47。

var a,b:string;

    i:integer;
    sa,sb:longint;
begin
  readln(a);
  readln(b);
  sa:=1;
  sb:=1;
  for i:=1 to length(a) do
  sa:=sa*(ord(a[i])-64);
  for i:=1 to length(b) do
  sb:=sb*(ord(b[i])-64);
  sa:=sa mod 47;
  sb:=sb mod 47;
  if sa=sb then writeln('GO') else writeln('STAY');
end.