Вопрос по информатике:
ПАСКАЛЬ.
Ввести с клавиатуры 3 числа. Вывести их на экран в порядке возрастания.
Помогите пожалуйста!
Пожаловаться
- 14.11.2017 09:50
- Информатика
- remove_red_eye 15435
- thumb_up 18
Ответы и объяснения 2
Procedure Swap(var A, B : Integer); begin A := A + B; B := A - B; A := A - B; end; var A, B, C : Integer; begin Write('Введите A B C : '); ReadLn(A, B, C); if A < B then Swap(A, B); if B < C then Swap(B, C); if A < B then Swap(A, B); WriteLn(A, B, C); end.
Пожаловаться
- 15.11.2017 11:26
- thumb_up 17
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(c, ' ', b, ' ', a) end.
Пожаловаться
- 17.11.2017 00:46
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы