Дано натуральное число, верно ли что оно начинается и заканчивается одной и той же цифрой.

Var   i: integer; begin   readln(i);   writeln( inttostr(i).first() = inttostr(i).last() ? 'верно' : 'неверно'); end.

1. программа в одной из современных версий паскаля: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 begin   var s: =readlnstring('исходная строка: ');   writeln('результат: ',s.matchvalues('[a-za-zа-яа-яёё]').joinintostring('')); end. тестовое решение: исходная строка: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 результат: pascalabcnetсборкаот 2. программа в "школьной версии" // pascalabc.net 3.1, сборка 1211 от 31.03.2016 const   legal=['a'..'z','a'..'z','а'..'я','а'..'я','ё','ё']; var   s: string;   i: integer; begin   write('исходная строка: '); readln(s);   for i: =length(s) downto 1 do       if not(s[i] in legal) then delete(s,i,1);   writeln('результат: ',s); end.

Адрес сети получается в результате поразрядной  конъюнкции(умножения) ip- адреса и маски 1)   в результате умножения ip и маски первые 2 байта  останутся теми  же, что в ip, а последний байт станет равен 0 что мы сейчас имеем: адрес сети - 12.16.x.0 найдем x: переведем   3 байт (196) в двоичную систему счисления: 196 = 128 + 64 + 4 получается  196  (10) = 11000100 (2) переведем 224 в двоичную систему счисления: 224 = 128 +  64 +32 получается 224  (10) = 11100000 (2) теперь нам нужно умножить двоичные представления чисел 196 и 224: 11000100 11100000 11000000(2) переведем  11000000(2) в десятичную систему счисления = 128+64 = 192 ответ: 12.16.192.02)  в результате умножения ip и маски первые 2 байта  останутся теми  же, что в ip, а последний байт станет равен 0 что мы сейчас имеем: адрес сети - 146.212.x.0 найдем x: переведем   3 байт (200) в двоичную систему счисления: 200 = 128 + 64 +8 получается  200  (10) = 11001000 (2) переведем 240 в двоичную систему счисления: 240 = 128 +  64 +32 +16 получается 240  (10) = 11110000 (2) теперь нам нужно умножить двоичные представления чисел 200 и 240: 11001000 11110000 11000000 (2) переведем  11000000(2) в десятичную систему счисления = 128+64 = 192 ответ: 146.212.192.0