|
|
back to boardAccepted (pascal) 100% правильно Posted by Deymos 16 Aug 2013 09:41 var t1 , t2 , n1 , n2 , k :integer; begin read ( t1 , t2 , n1 , n2 ); k:=abs(( n2 - n1 )*( t1 + 2 * t2 ) - t1 ); write ( k ); end. it's very short and good code (это очень короткий и хороший код) Edited by author 16.08.2013 09:42 Edited by author 16.08.2013 09:57 |
|
|