如果发现广告等破坏行为,请尽量将条目恢复到较早的版本而不是把相应内容直接删除,谢谢合作。

Code:USACO/ride/Pascal

来自"NOCOW"

跳转到: 导航, 搜索
{
ID:skywind2
LANG:PASCAL
TASK:ride
}
var 
  s,s1,i,l,l1:longint;
  a,b:string;
begin
  readln(a);
  readln(b);
  s2:=1;
  s1:=1;
  l:=length(a);
  l1:=length(b);
  for i:=1 to l do
     s:=s*(ord(a[i])-64);
  for i:=1 to l1 do
     s1:=s1*(ord(b[i])-64);
  if (s mod 47)=(s1 mod 47) then 
    writeln('GO')
  else writeln('STAY');
end.
{
ID:z_zfzfz1
LANG:PASCAL
TASK:ride
}
 
const a:array['A'..'Z']of integer
      =(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26);
var s:string[6];
    i,ji1,ji2:longint;
begin
     assign (input,'ride.in'); assign (output,'ride.out'); reset (input); rewrite (output);
     readln (s); jids1:=1; ji2:=1;
     for i:=1 to length(s) do ji1:=ji1*a[s[i]];
     readln (s);
     for i:=1 to length(s) do ji2:=ji2*a[s[i]];
     if (ji1 mod 47)=(ji2 mod 47) then writeln ('GO')
                       else writeln ('STAY');
     close (output);
end.



var

 s,c:string;
 i,j,n,m,x,y:longint;

begin

 readln(s);
 readln(c); 
 for i:=1 to length(s) do x:=(x*ord(s[i])-64)mod 47;
 for i:=1 to length(c) do y:=(y*ord(c[i])-64)mod 47;
 if x=y then writeln('GO') else writeln('STAY');

end.

个人工具