var
    n, k, dn : byte;
    u, v, t : single;

begin
   read(n, k, u, v);
   t := (k - 1) * v + 15;
   if (n-1)*u < t+5 then n := 1
   else
     begin
       dn := TRUNC(t/u);
       t := t - dn * u;
       if u - t < v then inc(dn, TRUNC(t/(u-v)));
       dec(n, dn);
     end;
   if n < 1 then n := 1;
   writeLn(n);
end.

where is my wrong!!
pls give me tests!!

Edited by author 02.03.2008 18:44

Are you taking into concideration, time of taking Petya down to 1-st floor?

I've the same problem.
Please help if yoy have already korrected it!

How do you calculate time if he if going down to x-th floor?

i don't understand you.
Do you speak Russian??

i corrected it but i've WA#3 yet, please give me tests!!!

var
    n, k, dn : integer;
    u, v, t : real;

begin
   read(n, k, u, v);
   t := (k - 1) * v + 15;
   if (n-1)*u < t+5 then n := 1
   else
     begin
       dn := TRUNC(t/u);
       t := t - dn * u;
       dec(n, dn);
       if (n-1)*v*2+5+t>(n-1)*u then n := 1
       else
         if (n-1)*v*2+5+t=(n-1)*u then n := 2
           else
             if u <= 2 * v then n := 1
               else dec(n, TRUNC(t/(u-2*v)));
       if n < 1 then n := 1;
     end;
   writeLn(n);
end.

Peter not required 15 seconds to leave Elevator
if he use Elevator he too not required 15 seconds to go out.
P.S. Bad English

Edited by author 05.03.2008 02:50

i corrected my code, but yet WA#3, pls i need help!!!!!!!


var
    n, k, dn : integer;
    u, v, t : real;

begin
   read(n, k, u, v);
   t := (k - 1) * v + 15;
   dn := TRUNC(t/u);
   t := t - dn * u;
   n := n - dn;
   if (n - 1)*2*v+5+t>(n-1)*u then n := 1
   else
     if (n - 1)*2*v+5+t=(n-1)*u then n := 2
     else dec(n, TRUNC(t/(u-2*v)));
   writeLn(n);
end.