тема «Операторы ветвления»
1. Составить программу упорядочивания трех чисел x, y, z по возрастанию.
| program pr1; uses crt; var x,y,z:real; begin clrscr; writeln('Введите x,y,z'); readln(x,y,z); if a>b then begin x:=x+y; y:=x-y; x:=x-y; end; if y>z then begin y:=y+z; z:=y-z; y:=y-z; end; if x>y then begin x:=x+y; y:=x-y; x:=x-y; end; writeln('Числа по возрастанию:'); write(a:0:2,' ',b:0:2,' ',c:0:2); readln end. | |