#8782: 为什么错?


lswyf (吴豫飞)


var
  m,d:byte;
  s:real;
begin
  while not eof do begin
    readln(m,d);
    s:=(m*2+d)/100*3;
    if s=0 then writeln('普通')
           else if s=2 then writeln('大吉')
                       else if s=1 then writeln('吉');
  end;
end.
#8812: Re:为什么错?


lswei (魏子轩)


var
  m,d:byte;
  s:real;
begin
  while not eof do begin
    readln(m,d);
    s:=(m*2+d)/100*3;
    if s=0 then writeln('普通')
           else if s=2 then writeln('大吉')
                       else if s=1 then writeln('吉');
  end;
end.

因为题目中的“%3”不是百分之3,而是mod 3