Svetik2982
24.04.2023 15:18

20 составить программу, которая вводит 3 числа и ставит их в порядке убывания

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Omursinovaa03
08.10.2020 09:01
var  
a, b, c: integer;  

begin  

Read(a, b, c);  
if ((a > b) and (a > c) and (b > c)) Then    
Write(a, ' ', b, ' ', c)  
else  
if ((b > a) and (b > c) and (a > c)) Then    
Write(b, ' ', a, ' ', c)  
else  
if ((c > a) and (c > b) and (a > b)) Then    
Write(c, ' ', a, ' ', b)  
else  
if ((b > a) and (b > c) and (c > a)) Then    
Write(b, ' ', c, ' ', a)  
else    
Write(a, ' ', c, ' ', b)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота