Вопрос по информатике:
Дано 3 чисел в паскалі треба написати програм щоб числа йшли у порядку зростання
Пожаловаться
- 18.08.2018 05:58
- Информатика
- remove_red_eye 16539
- thumb_up 40
Ответы и объяснения 1
Var
a,b,c:real;
Begin
WriteLn('Введите три числа');
ReadLn(a,b,c);
if (a<=b)and(b<=c) then Write(a,' ',b,' ',c)
else if (a<=c)and(c<=b) then Write(a,' ',b,' ',c)
else if (b<=a)and(a<=c) then Write(b,' ',a,' ',c)
else if (b<=c)and(c<=a) then Write(b,' ',c,' ',a)
else if (c<=a)and(a<=b) then Write(c,' ',a,' ',b)
else if (c<=b)and(b<=a) then Write(c,' ',b,' ',a)
End.
a,b,c:real;
Begin
WriteLn('Введите три числа');
ReadLn(a,b,c);
if (a<=b)and(b<=c) then Write(a,' ',b,' ',c)
else if (a<=c)and(c<=b) then Write(a,' ',b,' ',c)
else if (b<=a)and(a<=c) then Write(b,' ',a,' ',c)
else if (b<=c)and(c<=a) then Write(b,' ',c,' ',a)
else if (c<=a)and(a<=b) then Write(c,' ',a,' ',b)
else if (c<=b)and(b<=a) then Write(c,' ',b,' ',a)
End.
Пожаловаться
- 19.08.2018 10:20
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы