<em>Как-то так будет выглядеть ответ</em>
<em>UPD: 4 и 5 варианты стоит</em><u><em> поменять местами</em></u><em>.</em>
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
Ответ:
var
NumeralS, NumberS : string;
Numeral, Number : integer;
i, k : integer;
Begin
readln(Numeral, Number);
NumberS := inttostr(Number);
NumeralS := inttostr(Numeral);
for i:=1 to length(NumberS) do
if NumberS[i] = NumeralS then
inc(k);
if k>0 then
writeln(True)
else
writeln(False);
end.
Ответ:
255.255.128.0
Объяснение:
Оба адреса совпадают первыми 2 октетами (42.173) - это означает, что начало маски точно 255.255
далее необходимо сравнить 3 октеты
137 - 10001001
237 - 11101101
При побитовом AND получится 10001001, т.е. 3 октет в маске будет 10000000 - 128. Четвертый октет будет 0