Question

Найти минимальное число из трех чисел (через оператор IF)

Answer 1

Ответ:

Вот вроде как)

Объяснение:

var x,y,z,mx,mn,sr:integer;

begin

 readln (x,y,z);

 if (x>y) and (x>z) then

   mx:=x;

 if (y>x) and (y>z) then

   mx:=y;

 if (z>x) and (z>y) then

   mx:=z;

  if (x<y) and (x<z) then

   mn:=x;

 if (y<x) and (y<z) then

   mn:=y;

 if (z<x) and (z<y) then

   mn:=z;

 println (mx,((x+z+y)-mx-mn),mn);

 

end.