你要的飞碟在这儿
題意
通過小組名和彗星名來決定這個小組是否能被那顆彗星后面的UFO帶走。小組名和彗星名都以下列方式轉換成一個數字：最終的數字就是名字中所有字母的積，其中“A”是1，“Z”是26。例如，“USACO”小組就是21*19*1*3*15=17955。如果小組的數字 mod 47等于彗星的數字mod 47,你就得告訴這個小組需要準備好被帶走。
分析
先把每一個字母所代表的數字算出來，這樣就很好做了。
var
ch:char;
a,b:string;
i,x1,x2:longint;
w:array['A'..'Z']of longint;
begin
? ? for ch:='A' to 'Z' do
? ? w[ch]:=ord(ch)-64;
? ? readln(a);
? ? readln(b);
? ? x1:=1;x2:=1;
? ? for i:=1 to length(a) do
? ? x1:=x1*w[a[i]];
? ? for i:=1 to length(b) do
? ? x2:=x2*w[b[i]];
? ? if x1 mod 47=x2 mod 47 then write('GO') else write('STAY');
end.
轉載于:https://www.cnblogs.com/YYC-0304/p/9500197.html
總結
