Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
1. Добавлено 9 бит, так как в маске 255.0.0.0 - 8 единичных бит,
а в маске 255.255.128.0 - 17 единичных бит
2. Судя по маске получим 512 подсетей
3. В каждой подсети по 32766 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 10.101.0.0
5. Адрес IPv4 первого узла в этой подсети 10.101.0.1
6. Адрес IPv4 последнего узла в этой подсети 10.101.127.254
7. Широковещательный адрес IPv4 в этой подсети 10.101.127.255