Даны три целых числа A,B и C.Записать числа в порядке убыванияПлз помогите в Паскале

Question

Даны три целых числа A,B и C.Записать числа в порядке убывания



Плз помогите в Паскале

Comments

Это я сделал

---

По номеру семестра(N),укажите на каком курсе учится учащийся.

---

вот такой вопрос

---

Секунду, я ещё эту задачу делаю:D а ты мне уже 2 даешь)

---

не надо ее

---

Я ее сделал

---

сделай эту пж

---

По номеру семестра(N),укажите на каком курсе учится учащийся.

---

10 минут до конца пары))

---

Ну что?

Answer 1

Program n1;
procedure Sort(var A, B, C: integer);
var
t: integer;
begin
if A < B then begin
t := B;
B := A;
A := t
end;
if A < C then begin
t := C;
C := A;
A := t
end;
if B < C then begin
t := C;
C := B;
B := t
end
end;
var
A, B, C: integer;
begin
writeln('Введите три числа: ');
readln(A, B, C);
Sort(A, B, C);
writeln('Числа по убыванию: ', A, ' ', B, ' ', C)
end.