Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
15 января 2023 02:44
1318
Составьте программу сортировки по возрастанию значений трех переменных: 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
Остались вопросы?
Еще вопросы по категории Информатика
Сообщение было перекодировано из 8-битной кодировки в 2-х байтную, при этом информационный объем сообщения увеличился на 1024 бита. Сколько символов с...
Информация может быть определена как: 1) совокупность знаний о фактических данных и зависимо- стях между ними; 2) всё то, что так или иначе зафиксиров...
Ниже приведена программа, записанная на пяти языках программирования. Было проведено 9 запусков программы, при которых в качестве значений переменных...
Цвет пикселя, формируемого принтером, определяется тремя составляющими: голубой, пурпурный и желтый. Под каждую составляющую одного пикселя отвели по...
Текст содержащий 8192 знака с пробелами закодирован с помощью алфавита ,содержащего 128 символов. сколько килобайтов занимает в памяти этот текст ?...