Региональные компьютерные сети.
Локальные сети не позволяют обеспечить совместный доступ к информации пользователям, находящимся, например, в различных частях города. На помощь приходят региональные сети, объединяющие компьютеры в пределах одного региона (города, страны, континента).
Сервер локальной сети - это сервер, оказывающий услуги пользователям сети Интранет (Intranet). Не путайте "Интранет" с "Интернет". Сеть Intranet - это внутренняя корпоративная сеть, как правило, без выхода в Интернет.
В такой сети сервер может выполнять самые разнообразные функции, например, быть сервером печати или файловым сервером. Обычно во внутренних сетях серверы выполняют только эти функции. В зависимости от вида деятельности организации, в котором установлен сервер, довольно часто он используется в качестве сервера для данных.
Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
<span>end.</span>
Program fac;
var n:integer;
<span>
function fact(n:integer):</span>integer;
begin
if n=1 then fact:=1
else fact:=fact(n-1)*n;
end;
begin
write('vvedi chislo: '); // число 10 ))
readln(n);
n:=fact(n);
writeln('otvet:', n);
read;
end<span>.</span>