ulvis.paste.net - pastebin

Paste Search Dynamic
Recent pastes
number
  1. var i,p,a,b,c,q,x,y,z,m,s,f,e,t:int64;
  2. begin
  3. read(c,x,y,z,m,s,f,e,t);
  4. a:=0; b:=0; q:=0; i:=0;
  5. while (b<e) and (b=e) do
  6.         begin
  7.         q:=q +m;
  8.         a:=a+s;
  9.         p:=a div f;
  10.         b:=b+p;
  11.         a:=a-p;
  12.         if a>x then a:=x;
  13. end;
  14. if b>e then q:=q+t;
  15. while (a<c) do
  16.         begin
  17.         i:=i +m;
  18.         a:=a+s;
  19.         if x<c then begin p:=a div y; x:=x+z*p; end;
  20.         a:=a-p; if a>x then a:=x;
  21. end;
  22. if i>q then writeln(q) else writeln(i);
  23. end.
  24.  
Parsed in 0.003 seconds