Какие ресурсы может предоставить рабочая станция другим пользователям одноранговой локальной сети?

1. одноранговая сеть– это сеть равноправных компьютеров (рабочих станций) , каждый из которых имеет уникальное имя (имя компьютера) и обычно пароль для входа в него в момент загрузки ос. имя и пароль входа назначаются владельцем пк средствами ос. в такой сети могут быть организованы «подсети» , так называемые группы, каждая из которых также имеет имя, например «бухгалтерия» . принадлежность рабочей станции к какой-либо группе может быть задана или изменена самим пользователем. равноправность пк означает, что владелец каждого компьютера в сети сам имеет программную возможность преобразовать свой локальный ресурс (диски, папки, принтер) , в разделяемый, предоставив к нему доступ другим пользователям группы, устанавливать права и пароль доступа к ресурсу. он же отвечает за сохранность или работоспособность этого ресурса. программные средства также позволяют владельцу пк отменить доступ к ресурсу, то есть вернуть ему статус локального. доступ к «чужим ресурсам» в такой сети организован на уровне ресурсов. это означает, что доступ к сетевым ресурсам рабочей станции получает любой компьютер, входящий в ту же группу, что и «владелец ресурса» . доступ к сетевым ресурсам компьютеров другой группы невозможен. понятие «пользователь» в такой сети отсутствует, а точнее совпадает с понятием компьютер группы. в одноранговой сети каждая рабочая станция может одновременно, как предоставлять свои ресурсы другим компьютерам группы (быть сервером) , так и использовать ресурсы других пк (быть клиентом) . сети этого вида часто организуются в небольших офисах для объединения в сеть небольшого числа компьютеров (10-15 пк) . создание и эксплуатация такой сети не требует высокого профессионализма и наличия специального лица (системного администратора) , ответственного за функционирование сети. 2. иерархические сети – это сети, в которых имеется мощный компьютер – выделенный сервер, ресурсы которого предоставляются другим, соединенным с ним компьютерам (рабочим станциям) . ресурсы рабочих станций серверу, как правило, не доступны. иерархические сети организуются при большом количестве рабочих станций. в сравнении с одноранговыми сетями они обеспечивают более высокие быстродействие и надежность работы сети, повышают конфиденциальность и надежность хранения информации, а также предоставляют ряд других полезных возможностей, рассмотренных ниже. однако создание иерархической сети требует высокого профессионализма, а работу всей сети организует специальное ответственное лицо – системный администратор. в отличие от однораноговой сети предоставление ресурсов сервера в иерархической сети производится на уровне пользователей. это означает, что для полноценной работы в сети каждый пользователь должен быть персонально зарегистрирован администратором сети, после чему ему назначается уникальное в сети имя и пароль, под которым он «будет известен серверу» . при регистрации пользователю также выделяются определенные ресурсы на сервере и права доступа к ним. в дальнейшем при подключении к серверу пользователь должен будет в специальном диалоговом окне указывать это имя и пароль, и только после этого ему будет открыт доступ к назначенным ему сетевым ресурсам.

Код программы в нормальном виде var       a, b, c: integer; begin       a : = 15;       b : = 5;       c : = 1;       while a > b do       begin               a : = a - b;               if b > c then begin                       b : = b - c;                       c : = 2 * c;               end       end;       writeln('c=', c) end. вывод c=4

{на самом деле они все строковые, но так как некоторые можно преобразовать в числовому значению, можно, я думаю,  об этом забыть. если мне покажут какой-то смежный тип  (не я буду крайне } //pascal abc.net 3.1 сборка 1256 const   n=5; var   i,k: integer;   r: real;   rs: string;   arsom: array[1..n] of string;   se: set of char; begin se: =['0','1','2','3','4','5','6','7','8','9','.','-']; k: =0; for i: =1 to n do   begin   readln(arsom[i]);   foreach var x in arsom[i] do   if x in se then inc(k);   if k=length(arsom[i]) then r+=strtofloat(arsom[i]) else rs+=arsom[i];   k: =0;   end; writeln('сумма чисел: ',r); write('сумма строк: ',rs); end. пример ввода: -1.1 sample 2   text 1.2 пример вывода: сумма чисел: 2.1 сумма строк: sample text