Вопрос по информатике:
Даны три числа,вывести их в порядке не возрастания.
Прога - PASCAL ABC
Пожаловаться
- 17.10.2017 16:09
- Информатика
- remove_red_eye 8620
- thumb_up 28
Ответы и объяснения 1
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1 способ
begin
var a:=ReadArrInteger(3);
a:=a.Sorted.Reverse.ToArray; a.Println;
end.
2 способ
begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
if (c>b) and (b>a) then begin Println(c,b,a); exit; end;
end.
//Версия 3.3, сборка 1634 (14.02.2018)
1 способ
begin
var a:=ReadArrInteger(3);
a:=a.Sorted.Reverse.ToArray; a.Println;
end.
2 способ
begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
if (c>b) and (b>a) then begin Println(c,b,a); exit; end;
end.
Пожаловаться
- 18.10.2017 14:25
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы