Составьте программу сортировки по возрастанию значений трех переменных: 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

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

Найти нужный

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

В каких случаях можно знаки формальных языков включать в тексты на естественном языке? Где вы с этим встречались? Приведите примеры.... Определи, чему должна быть равна переменная k, k, чтобы цикл выполнился ровно 4 раза: i := 6; while (i > k) do begin 　　writeln(i, ' '); 　　i :=... Пусть a % b – это остаток при делении натурального числа a на натуральное число b. Тело функции F(n) задано следующими строчками и условиями: F(n... Какой из объектов может являться исполнителем алгоритмов? ножницы карта принтер книга... Переведите целые числа из десятичной системы счисления в двоичную а)89.Желательно решите на листочке)...