Var b:array[1..15] of real;
i:integer;
begin
for i:=1 to 15 do read(b[i]);
writeln;
for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end;
end.
1. Одноранговая локальная сеть, где все компьютеры объединены в локальную сеть и равноправны (имеют одинаковые права)
2. Локальная сеть с выделенным сервером - где так же компьютеры объединены в локальную сеть, но один компьютер является главным среди всех и более мощный и производительный.
3. посмотри в классе как соединены компьютеры и сделаешь вывод - в основном там бывае первый случай (одноранговая сеть с топологией звезда), а функции просты - можно пользоваться общими локальными папками и т. п.
4. тоже поспрашивай, кто у вас является поставщиком сетевых услуг (интернета). В школе сеть в классе делает или инженер школы (сис. админ.) или учитель информатики
5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.