Нужно написать программу - даны числа a,b,c.Составить программу вводящую их в убывающем...

Question

Нужно написать программу - даны числа a,b,c.Составить программу вводящую их в убывающем порядке

Comments

Язык программирования?

---

Да pascalABC

---

Там ещё тема моя есть не поможешь потом? 12 балов

---

А все числа разные? Или могут повторяться?

---

Ну на этот счёт не чего не сказано в задании.Могут

---

Ну по логике чиcло a должно быть отличным от b и от c

Answer 1

Var  a, b, c: integer;
begin  Writeln('Введите первое число');  readln(a);  Writeln('Введите второе число');  readln(b);  Writeln('Введите третье число');  readln(c);  if (A > B) and (A > C) and (B > C) then Writeln(a, b, c) else   if (B > A) and (B > C) and (A > C) then Writeln(b, a, c) else  if (C > A) and (C > B) and (B > A) Then writeln(c, b, a) else  if (A > B) AND (A > C) AND (C > B) THEN WRITELN(A, C, B) ELSE  if (B > A) AND (B > C) AND (C > A) THEN WRITELN(B, C, A) ELSE  if (C > A) AND (C > B) AND (A > B) THEN WRITELN(C, A, B);end.