Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
15 января 2023 02:44
1244
Составьте программу сортировки по возрастанию значений трех переменных: 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
Остались вопросы?
Еще вопросы по категории Информатика
База данных – это: 1.совокупность данных, организованных по определенным правилам; 2. совокупность программ для хранения и обработки больших массиво...
1. Какую информацию может обрабатывать КОМПЬЮТЕР? 2. Для ввода какой информации предназначены микрофон, сканер, цифровая камера? 3. Для чего нужна кл...
1.Приведите примеры алгоритмов из повседневной жизни: 1.Приготовление какого - либо напитка (чай,кофе) 2. Перехода через проезжую часть 3. Подготовк...
Системное программное обеспечение 1) Отметьте все программы, которые относятся к системному программному обеспечению драйверы, игры, редакторы текста...
Переведите целые числа из десятичной системы счисления в восьмеричную: а) 513 б) 600 в) 2010...
Все предметы