Составьте программу сортировки по возрастанию значений трех переменных: A B C. плииииз, умоляю

1 ответ

Посмотреть ответы

Megamozg

2205

var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.

Хороший ответ

17 января 2023 02:44

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Лягушка и кузнечик Ограничение по времени: 0.5 секунды В крайних клетках полоски шириной в одну клетку и длиной в N клеток сидят лягушка и кузнечик:... . Какое предложение не является высказыванием? а) Никакая причина не извиняет невежливость. б) Обязательно стань отличником. в) Рукописи не горят.... приведите примеры ситуаций, в которых информация собирается, обрабатывается, упрощается, создается, запоминается, измеряется, копируется, передается,... Пожалуйста, от этого зависит моя оценка Что значит "Ошибка инициализации (0х0175dcbb) И как устранить проблему? на Windows... помогите срочно!! Даны две дроби A/B и C/D (A, B, C, D - натуральные числа). Составить программу умножения дроби на дробь. Ответ должен быть несократи...