Вопрос по информатике:
Народ, мне опять нужна программа, извините :D
Такая вот тема: есть программа "Pascal" сортировки 2-ух чисел по возрастанию, она потом выводит эти числа в порядке возрастания. Но как туда добавить 3-е число (переменную) - до сих пор додуматься не могу. Помогите, пожалуйста.
- 27.05.2015 17:18
- Информатика
- remove_red_eye 17483
- thumb_up 35
Ответы и объяснения 1
var a,b,c: real;
begin
readln(a,b,c);
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
writeln(a,' ',b,' ',c);
end.
- 28.05.2015 23:02
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.