Упорядочить три числа в порядке неубывания - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста с двумя задачками на FPC: 1)Дано три числа. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c. Дополнительные ограничения: нельзя использовать дополнительные переменные (то есть единственной допустимой операцией присваивания является обмен значений двух переменных типа (a, b) = (b, a). 2)Дано число. Требуется поменять его цифры местами. Ведущие нули не выводить. Входные данные Вводится число. 10 ≤ n ≤ 99. Выходные данные Выведите число с изменёнными цифрами. (См. пример).

Решение задачи: «Упорядочить три числа в порядке неубывания»

textual
Листинг программы
  1. var a,b,c:integer;
  2. begin
  3.  readln(a,b,c);
  4.  if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
  5.  if b>c then begin b:=b+c;c:=b-c;b:=b-c end;
  6.  if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
  7.  writeln(a,' ',b,' ',c);
  8.  readln
  9. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы