В. сортировка на троих
(время: 1 сек. память: 16 мб, 100 )
заданы три целых числа. необходимо вывести их в порядке возрастания. числа не превышают 10° по
модулю. формат входных данных три числа, разделенные пробелом. формат результата. три числа в
порядке возрастания, разделенные пробелом.
примеры
входные данные
2 37 9
результат работы
2 9 37​

LeraBelenko LeraBelenko    3   17.10.2019 23:29    0

Ответы
MiyaGi228 MiyaGi228  10.10.2020 07:43

Т.к уточнений нет, то написал на Pascal самым простеньким методом.

Проверьте всё ли тут, что требуется.

var

 a,b,c,d,f,g:integer;

begin

 writeln('Входные данные');

 readln(a,b,c);

 if (a<b) and (a<c) then  

   d:=a;

 if (b<a) and (b<c) then  

   d:=b;  

 if (c<b) and (c<a) then  

   d:=c;

 if (a>b) and (a>c) then

   g:=a;

 if (b>c) and (b>a) then

   g:=b;

 if (c>b) and (c>a) then

   g:=c;

 if (a>d) and (a<g) then

   f:=a;

 if (b>d) and (b<g) then

   f:=b;

 if (c>d) and (c<g) then

   f:=c;

 writeln('Результат работы');    

 writeln(d+' '+f+' '+g);        

end.  

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика