Program vvv2;
uses crt;
const n=5;
const m=6;
var
a:array[1..n,1..m] of integer;
st:array[1..n] of integer;//массив для хранения столбца
i,j,nomer,min : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= Random(100); //заполняем массив
writeln;
writeln('Начальный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
st[i]:=a[i,1];
a[i,1]:=a[i,m];
a[i,m]:= st[i];
end;
writeln;
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
end.
1. Одноранговая локальная сеть, где все компьютеры объединены в локальную сеть и равноправны (имеют одинаковые права)
2. Локальная сеть с выделенным сервером - где так же компьютеры объединены в локальную сеть, но один компьютер является главным среди всех и более мощный и производительный.
3. посмотри в классе как соединены компьютеры и сделаешь вывод - в основном там бывае первый случай (одноранговая сеть с топологией звезда), а функции просты - можно пользоваться общими локальными папками и т. п.
4. тоже поспрашивай, кто у вас является поставщиком сетевых услуг (интернета). В школе сеть в классе делает или инженер школы (сис. админ.) или учитель информатики
procedure Kol(n: integer; var c:integer);
begin while n > 0 do
begin n := n div 10;
c += 1;
end;
end;
begin
readln(n);
Kol(n, c);
write(c);
End.