Напечатать три числа x, y, z в порядке возрастания. По алгоритму сравнения

code: #pascal
Program PascalGuru;
 
var x,y,z: integer;
    min: integer;
 
begin
writeln ('VVedite koeficienty X,Y,Z');
readln (x,y,z);
writeln;
 
min:=x;
if y<min then min:=y;
if z<min then min:=z;
 
write(min, ' ');
 
if x=min then
   if y<z then write(y,' ',z) else write(z,' ',y);
 
if y=min then
   if x<z then write(x,' ',z) else write(z,' ',x);
 
if z=min then
   if y<x then write(y,' ',x) else write(x,' ',y);
 
readln;
end.      
Поделиться:

Похожие статьи: