|
|
back to boardfor pascal ones: >AC< ;) program Project1; {$APPTYPE CONSOLE} uses SysUtils; var k1, k2, k3 : Real; begin readln( k1, k2, k3 ); writeln( 1000 / ( k2/k3 + k2/k1 + 1 ) * k2 : 0 : 0 ); end. Re: for pascal ones: >AC< ;) As you can see, problem is very easy. I got AC and my solution used 295 KB memory and works 0.015 sec. P.S. Sorry for my bad English. Re: for pascal ones: >AC< ;) Posted by amirani 20 Jan 2012 20:18 This part of your program isn't necessary uses SysUtils; .It just increase memory. |
|
|