1) Маска подсети: 11111111.11111111.11110000.00000000
IP: 11101000.01111110.10010110.00010010
номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.
т.е 0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554
2) Маска подсети: 11111111.11111111.11100000.00000000
IP: 11001110.10011110.01111100.01000011
Номер хоста: 11100.01000011= 7235
3) Маска подсети: 11111111.11111111.11111100.00000000
IP: 11100010.10111001.01011010.10100010
Номер хоста: 10.10100010=674
type Cl = class
a:integer;
constructor Create(b:integer);
procedure SetVal(b:integer);
function GetVal:integer;
procedure Sq;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.SetVal(b:integer);
begin
a := b;
end;
function Cl.GetVal:integer;
begin
GetVal := a;
end;
procedure Cl.Sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('Error');
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.Sq;
Readln;
Obj.Destroy;
end.