ac1115.pas

某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请不要用来作弊

program tju1115;
var
  a,b:string;
  a3,a4,b3,b4,an,bn:boolean;
function div3(s:string):boolean;
  var
    r,i:byte;
  begin
    r:=0;
    for i:=1 to length(s) do
      r:=(r+ord(s[i])) mod 3;
    div3:=r=0;
  end;
function div4(s:string):boolean;
  begin
    if length(s)=1 then
      div4:=(s='4') or (s='8')
    else
      div4:=(ord(s[length(s)-1])*10+ord(s[length(s)])) mod 4=0;
  end;
function not125(s:string):boolean;
  begin
    not125:=(s<>'1') and (s<>'2') and (s<>'5');
  end;
begin
  repeat
    readln(a);readln(b);
    a3:=div3(a);a4:=div4(a);b3:=div3(b);b4:=div4(b);an:=not125(a);bn:=not125(b);
    if a3 and b4 or a4 and b3 or a3 and a4 and bn or b3 and b4 and an then
      writeln('Yes')
    else
      writeln('No');
  until seekeof;
end.