Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
Объяснение:
Локальная сеть выполняет следующие функции:
1) совместное использование данных;
2) обмен данными, например, электронную почту — отправку сообщений в сети указанным адресатам. Электронная почта изначально появилась в локальных сетях; с развитием глобальных сетей глобальная электронная почта заняла лидирующее положение;
3) совместное использование программ;
4) совместное использование модемов, принтеров и других устройств.
0 раз можно забить прогу в паскале и проверить