Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
15 января 2023 02:44
1375
Составьте программу сортировки по возрастанию значений трех переменных: A B C. плииииз, умоляю
1
ответ
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.
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.
0
·
Хороший ответ
17 января 2023 02:44
Остались вопросы?
Еще вопросы по категории Информатика
Лягушка и кузнечик Ограничение по времени: 0.5 секунды В крайних клетках полоски шириной в одну клетку и длиной в N клеток сидят лягушка и кузнечик:...
У исполнителя Водолей есть два сосуда: сосуд A объемом 3 литра и сосуд B объемом 7 литров. Также исполнитель Водолей умеет выполнять команды: наполнит...
Два игрока играют в следующую игру. Перед ними лежат две кучки камней, в первой из которых 1 камень, а во второй 2 камня. У каждого игрока неограничен...
Скорость передачи данных через ADSL- соединения равна 1024000 бит/с. Передача файлп через данное соединение заняла 5 секунд. Определите размер файла в...
Для игры, описанной в задании 19, найдите такое значение S, при котором одновременно выполняются два условия: — у Вани есть выигрышная стратегия, поз...