|
|
вернуться в форумPlease help me !!! Please post some tests or hints for this problem. I can't understand why my programm wrong. Var D,E,F,De,Dp,H,T : Longint; Begin Read(D,E,F,De,Dp,H); T:=Trunc(Exp(Ln(2)*F)); If (De > T Div 2) And (Dp <= T Div 2) Then Begin If (F-E)+(F-D)>H Then Writeln('NO') Else Writeln('YES'); Halt; End; If (Dp > T Div 2) And (De <= T Div 2) Then Begin If (F-E)+(F-D)>H Then Writeln('NO') Else Writeln('YES'); Halt; End; If Abs(E-D)>H Then Writeln('NO') Else Writeln('YES'); End. Re: Please help me !!! Mail me and you gen an answer ! |
|
|