Арбуз разрезали на 4 части и съели осталось 5 корок может ли такое быть

1)

Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N do
if n mod i=0 then k:=k+1;
Writeln('Delitelei ',k,' vkluchaya 1 i ',n);
readln
end.

2)

Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N-1 do
if n mod i=0 then k:=k+i;
If k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno');
readln
end.

3) Вычислить, я так поняла, сумму всего этого?

Program n1;
Uses CRT;
Var k,n,i,j,a: integer; s: real; p: longint;
begin
Writeln('Vvedite a,N');
readln(a,n);
p:=1;
For i:=1 to n do
For j:=1 to i do
p:=p*a;
s:=s+1/p;
writeln(s);
readln
end.

1.а)локальная

б)глобальная

в)локальная(если компьютер дйствительно"рабочий")

г)глобальная

д)локальная

е)глобальная

2.Локальная сеть дает возможность получать совместный доступ к общим папкам, файлам, оборудованию, различным программам и т.д. в пределах одного здания, офиса или комнаты.

3.прости, не понял или нет изображения

4.вариантов очень много: кольцо,шина,звезда...(лень рисовать, но если заглянуть в любой из учебников информатики то там на теме "локальная сеть" будут эти рисунки(насколько я знаю =) ))