Напечатать три числа x, y, z в порядке возрастания. По алгоритму сравнения
Категория: Delphi/Pascal
2012-01-18 23:44:06
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.
Поделиться: