var c, f, First, count:integer; begin write('c = '); readln(c); f := c; while (f div 10 > 0) do begin First := f div 10; count := 1; while (First div 10 > 0) do begin First := First div 10; Inc(count); end; if First <> f mod 10 then begin writeln('No'); readln; Exit; end;
while count > 0 do begin First := First * 10; dec(count); end; f := f - First; f := f div 10; end; writeln('Changeling'); readln; end.
var
c, f, First, count:integer;
begin
write('c = ');
readln(c);
f := c;
while (f div 10 > 0) do
begin
First := f div 10;
count := 1;
while (First div 10 > 0) do
begin
First := First div 10;
Inc(count);
end;
if First <> f mod 10 then
begin
writeln('No');
readln;
Exit;
end;
while count > 0 do
begin
First := First * 10;
dec(count);
end;
f := f - First;
f := f div 10;
end;
writeln('Changeling');
readln;
end.
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