Var a,b,c,d,e,x: integer; BEGIN readln(a,b,c,d,e); if {1} a>b then begin x:=a; a:=b; b:=x; end; if {2} c>d then begin x:=c; c:=d; d:=x; end; if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end; if {4} c>e then if {5} b>c then if {6} b>d then if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end else begin x:=e; e:=b; b:=x; end else if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end else begin x:=e; e:=d; d:=b; b:=x; end else if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end else if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end else begin x:=e; e:=d; d:=c; c:=x; end else if {5} d>e then if {6} b>e then if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end else begin x:=e; e:=d; d:=b; b:=c; c:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end else begin x:=e; e:=d; d:=x; end else if {6} b>d then if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end else begin x:=b; b:=c; c:=d; d:=x; end else if {7} b>c then begin x:=b; b:=c; c:=x; end; writeln; writeln(a,' ',b,' ',c,' ',d,' ',e); END.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
BEGIN
readln(a,b,c,d,e);
if {1} a>b then begin x:=a; a:=b; b:=x; end;
if {2} c>d then begin x:=c; c:=d; d:=x; end;
if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
if {4} c>e then
if {5} b>c then
if {6} b>d then
if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
else begin x:=e; e:=b; b:=x; end
else
if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
else begin x:=e; e:=d; d:=b; b:=x; end
else
if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end
else
if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end
else begin x:=e; e:=d; d:=c; c:=x; end
else
if {5} d>e then
if {6} b>e then
if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end
else begin x:=e; e:=d; d:=b; b:=c; c:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end
else begin x:=e; e:=d; d:=x; end
else
if {6} b>d then
if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end
else begin x:=b; b:=c; c:=d; d:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; end;
writeln;
writeln(a,' ',b,' ',c,' ',d,' ',e);
END.