Упорядочить три числа в порядке неубывания - Free Pascal
Формулировка задачи:
Помогите пожалуйста с двумя задачками на FPC:
1)Дано три числа. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c.
Дополнительные ограничения: нельзя использовать дополнительные переменные (то есть единственной допустимой операцией присваивания является обмен значений двух переменных типа (a, b) = (b, a).
2)Дано число. Требуется поменять его цифры местами. Ведущие нули не выводить.
Входные данные
Вводится число. 10 ≤ n ≤ 99.
Выходные данные
Выведите число с изменёнными цифрами. (См. пример).
Решение задачи: «Упорядочить три числа в порядке неубывания»
textual
Листинг программы
- var a,b,c:integer;
- begin
- readln(a,b,c);
- if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
- if b>c then begin b:=b+c;c:=b-c;b:=b-c end;
- if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
- writeln(a,' ',b,' ',c);
- readln
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
