Найти среди чисел a, b, c наименьшее и заменить им число, большее из них - Free Pascal

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

1. Найти среди чисел a, b, c наименьшее и заменить им число, большее из них.

Решение задачи: «Найти среди чисел a, b, c наименьшее и заменить им число, большее из них»

Листинг программы

var a,b,c,mn: real;
begin
readln(a,b,c);
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
if(a>b)and(a>c) then a:=mn
else if(b>c)and(b>a)then b:=mn
else if(c>a)and(c>b)then c:=mn;
writeln('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
end.

Объяснение кода листинга программы

Ввод исходных данных:
- Переменные a, b и c используются для хранения чисел, введенных пользователем.
- Функция readln() используется для считывания трех чисел от пользователя и сохранения их в переменных a, b и c.
Поиск наименьшего числа:
- Переменная mn используется для хранения наименьшего числа.
- Если a меньше b, то mn присваивается значение a.
- Если c меньше mn, то mn присваивается значение c.
Замена наибольшего числа:
- Если a больше b и a больше c, то a заменяется на mn.
- Если b больше c и b больше a, то b заменяется на mn.
- Если c больше a и c больше b, то c заменяется на mn.
Вывод результатов:
- Функция writeln() используется для вывода значений переменных a, b и c с точностью до двух знаков после запятой. Примечание: в данном коде не обрабатывается ситуация, когда все три числа равны между собой.