Var
n:integer;
begin
Write('n = '); Read(n);
if (n mod 2=0) then Writeln('Число четное')
else begin
Write('Число нечетное и оно ');
if Abs(n mod 10)<>7 then Write('не ');
Writeln('оканчивается цифрой 7')
end
end.
<u>Примеры</u>
n = 3538
Число четное
n = 642301
Число нечетное и оно не оканчивается цифрой 7
n = 6306547
Число нечетное и оно оканчивается цифрой 7
n = -546347
Число нечетное и оно оканчивается цифрой 7
Первые различающиеся байты переведем в двоичную систему счисления(третий байт):
Найдем наименьшее возможное значение третьего байта. Выпишем в столбик двоичные записи чисел 128 и 137. Добавим еще одну строчку, в которую будем записывать минимально возможное значение третьего байта. Если значения в столбике одинаковые, то ставим соответствующее число, если они различаются, ставим какой-нибудь знак. Я поставил знак '?'.
Теперь перенесем все '?' к последней единице(в нашем случае она и первая):
Так как нам нужно найти
наименьшее возможное значение, заменяем '?' на нули:
Т.к. в маске подсети сначала идут только единицы, а затем нули, то логично, что если третий байт имеет значение 1000 0000, то первый и второй байт имеют значения 11111111.
Следовательно наименьшая маска подсети имеет вид: 11111111.11111111.10000000.00000000
Ответ: 17 единиц.
А) DCCIX =709
б)MCMXCIV =1994
в) CCLXXII =272
<span>
I – единица</span><span>
X - десяток</span><span>
L – пятьдесят</span>
С- сто
<span>
D - пятьсот</span><span>
M -
тысяча</span>