记录编号 20983 评测结果 AAAAAAAAAA
题目名称 漂亮字串 最终得分 100
用户昵称 Gravatargragon 是否通过 通过
代码语言 Pascal 运行时间 0.024 s
提交时间 2010-11-02 09:10:50 内存使用 0.11 MiB
显示代码纯文本
program ex;
var mx,mo,co,cx,zo,zx,w:longint;
begin
  assign(input,'bs.in');
  reset(input);
  assign(output,'bs.out');
  rewrite(output);
  repeat
    begin
      readln(co,cx,mo,mx);
      if (mo<>0)and(mx<>0) then
        begin
          zo:=co div mo;
          zx:=cx div mx;
          if co div mo<>0 then
            inc(zo);
          if cx div mx<>0 then
            inc(zx);
          if (co-zx>=-1)and(cx-zo>=-1) then
            writeln(co+cx)
          else
            begin
              if co-zx<-1 then
                w:=co*mx+mx+co;
              if cx-zo<-1 then
                w:=cx*mo+mo+cx;
              writeln(w);
            end;
        end
      else
        if mo=0 then
          begin
            if mx<=cx then
              writeln(mx)
            else
              writeln(cx);
          end
        else
          if mo<=co then
            writeln(mo)
          else
            writeln(co);
    end
  until
    eof(input);
  close(input);
  close(output);
end.