Помогите безотлагательно!!!! ДАЮ 20 БАЛЛОВ!!Составить программку, которая вводит 3 числа и

Помогите безотлагательно!!!! ДАЮ 20 БАЛЛОВ!!

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

Задать свой вопрос
1 ответ
var  
a, b, c: integer;  

begin  

Read(a, b, c);  
if ((a gt; b) and (a gt; c) and (b gt; c)) Then    
Write(a, ' ', b, ' ', c)  
else  
if ((b gt; a) and (b gt; c) and (a gt; c)) Then    
Write(b, ' ', a, ' ', c)  
else  
if ((c gt; a) and (c gt; b) and (a gt; b)) Then    
Write(c, ' ', a, ' ', b)  
else  
if ((b gt; a) and (b gt; c) and (c gt; a)) Then    
Write(b, ' ', c, ' ', a)  
else    
Write(a, ' ', c, ' ', b)
end.
Сайгуткин Тимур
Cпасибо
Колек Соякка
Я там ошибку сделал, скопируй и вставь заново
Руслан
Отметь как лучшее
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт