Топология сети – геометрическая форма и физическое расположение компьютеров по отношению к друг другу. Топология сети позволяет сравнивать и классифицировать различные сети. Различают три основных вида топологии:
1) Звезда;
2) Кольцо;
3) Шина.
Лучшая сеть топологии Звезда. Устанавливать сеть топологии «Звезда» легко и недорого. Число узлов, которые можно подключить к концентратору, определяется возможным количеством портов самого концентратора, однако имеются ограничения по числу узлов (максимум 1024). Рабочая группа, созданная по данной схеме может функционировать независимо или может быть связана с другими рабочими группами
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
Задание №1
var
a, b, i, s1, s2, s3,k: integer;
begin
a := readinteger('Введите первое трехзначное число');
b := readinteger('Введите второе трехзначное число');
for i := a to b do
begin
k:=0;
s1 := i mod 10; k:=1;
s2 := (i div 10) mod 10;
if s2=s1 then k:=k+1;
s3 := (i div 100)mod 10;
if s3=s1 then k:=k+1;
if k = 2 then println(i);
end;
end.
Тестовое решение:
Введите первое трехзначное число 100
Введите второе трехзначное число 200
100
101
121
122
131
133
141
144
151
155
161
166
171
177
181
188
191
199
200
Задание №2
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,b,n:integer;
p:biginteger;
begin
repeat
a:=readlninteger('Введите a');
n:=readlninteger('Введите n');
until (a>0) and (n > 0);
p:=1;
for var i:=1 to n do begin
p:=p*a;
end;
println(a, 'в степени', n,' = ',p);
p:=1;
for var i:=1 to a do begin
p:=p*n;
end;
println(n, 'в степени', a,' = ',p);
end.
Тестовое решение:
Введите a
2
Введите n
3
2 в степени 3 = 8
3 в степени 2 = 9