РАССТОЯНИЕ МЕЖДУ ЧЕМ ЛИБО
Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Тут вообще речь идёт о способах подключения компов по локальной сети - Топология.... способов хватает, так что на твои вопросы ответить можно:
1)либо кольцо, либо шина
2)звезда
3)иерархическая (снежинка)
4)звезда