var p,e,i,d,a,b,c,k:longint;
begin
 while k=k do
  begin
   inc(k);
   readln(p,e,i,d);
   if (p=-1)and(e=-1)and(i=-1)and(d=-1) then
    break;
   a:=p;
   b:=e;
   c:=i;
   if (abs(p-d) mod 23=0)and(abs(e-d) mod 28=0)and(abs(i-d)mod 33=0) then
    begin
     inc(p);
     inc(e);
     inc(i);
     d:=1;
    end
   else
    begin
     p:=d+1;
     e:=d+1;
     i:=d+1;
     d:=1;
    end;
   while ((abs(p-a)mod 23<>0)or(abs(e-b) mod 28<>0)or(abs(i-c) mod 33<>0))and(d<21252) do
    begin
     inc(p);
     inc(e);
     inc(i);
     inc(d);
    end;
   writeln('Case ',k,': the next triple peak occurs in ',d,' days.');
  end;
end.

• Re:优化后AC了…… (520) 568082880 2015-05-11 08:40:04