В. сортировка на троих
(время: 1 сек. память: 16 мб, 100 )
заданы три целых числа. необходимо вывести их в порядке возрастания. числа не превышают 10° по
модулю. формат входных данных три числа, разделенные пробелом. формат результата. три числа в
порядке возрастания, разделенные пробелом.
примеры
входные данные
2 37 9
результат работы
2 9 37
Т.к уточнений нет, то написал на 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.