Вариант 04. Даны значения трех вещественных переменных a, b и c, от-
личные друг от друга. Обменять значения переменной, имеющей наиболь-
шее значение с переменной, имеющей наименьше значение.
}
var
a, b, c, mx, mm, buf :real;
begin
{ВВОД}
writeln('Введите три числа a, b, c');
readln( a, b, c );
{ВЫЧИСЛЕНИЕ}
mx := 0;
if (a>b) and (a>c) then mx := 1;
if (b>a) and (b>c) then mx := 2;
if (c>a) and (c>b) then mx := 3;
if (a<b) and (a<c) then mm := 1;
if (b<a) and (b<c) then mm := 2;
if (c<a) and (c<b) then mm := 3;
if (mm=1) and (mx=2) then begin
buf := a; a := b; b := buf;
end;
- Курсовая работа
- Дипломная работа
- Контрольная работа
- Реферат
- Отчет по практике
- Магистерская работа
- Статья
- Эссе
- Научно-исследовательская работа
- Доклад
- Глава диплома
- Ответы на билеты
- Презентация
- Диаграммы, таблицы
- ВАК
- Перевод
- Бизнес план
- Научная статья
- Рецензия
- Лабораторная работа
- Решение задач
- Диссертация
- Доработка заказа клиента
- Аспирантский реферат
- Монография
- ВКР
- Дипломная работа MBA
- Компьютерный набор текста
- Речь к диплому
- Тезисный план
- Чертёж
