Developing.ru

Spasibo bol'shoe!!!!!

[quote="&quot"]cped=max(min(a,b),min(a,c),min(b,c))[/quote]
Заметьте надо сделать макс с тремя параметрами. Но это легко: Max3Parameters:=Max(Max(a,b),Max(B,C));

Можно так:
[syntax='Pascal']
Program SearchMiddle;
Type Arr=Array[0..4] Of Integer;
Var A:Arr;

Begin
Writeln('Enter A,B,C:');
Readln(A[1],A[2],A[3]);
I:=1;K:=False;
A[0]:=A[3];A[4]:=A[1];
While Not K Do
Begin
K:=(A[i]<=A[ i +1])And(A[i]>=A[I-1])or(A[i]>=A[ i +1])And(A[i]<=A[I-1]);
Inc(I);
End;
Writeln(A[i-1]);
End.
[/syntax]
Лёгкий, не правда ли? И без ИФОВ.

безо всяких условий чистая математика
max=(a+b+abs(a-b))/2
min=(a+b-abs(a-b))/2

cped=max(min(a,b),min(a,c),min(b,c))

уж распишите сами, времени нет :)

A kak ???
Vi mne pomogete esli odskagete :)

да, Вы правы - моё решение неверно!!!
а если в одном if написать несколько условий через and/or это будет "честным" решением?.. тогда можно в два if вложится... ;-)

Eto ne pravel'no ecli a=8,b=4,c=1
to result=1;

вариант без if получается слишком большим арифметическим выражением, если очень надо напишу

матан учить надо
число=[(a+b+abs(a-b))/2+c-abs((a+b+abs(a-b))/2-c)]/2

Spasibo no eto ne pravel'no!!
Na samom dele tam namnogo bol'she if