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.