решите пожалуйста очень нужно. ДАЮ МНОГО БАЛЛОВ!!!!
Answers & Comments
danulpopov
Var x,y,z,mid:integer; begin Readln(x,y,z); if (x > y) and (x > z) then if z > y then mid:=z else mid:= y; if (y > x) and (y > z) then if z > x then mid:=z else mid:= x; if (z > y) and (z > x) then if x > y then mid:=x else mid:= y; Writeln(mid); end.
Answers & Comments
x,y,z,mid:integer;
begin
Readln(x,y,z);
if (x > y) and (x > z) then
if z > y then mid:=z
else mid:= y;
if (y > x) and (y > z) then
if z > x then mid:=z
else mid:= x;
if (z > y) and (z > x) then
if x > y then mid:=x
else mid:= y;
Writeln(mid);
end.
Пример:
1 3 4
3