Прости, я не могу это щас решить
Объяснение:
Берём например ip 210.171.30.128
Берем число 210 и начинаем делить на 2.
210 поделить на 2 равно 105 с остатком 0.
105 раздели на 2 равно 52 с остатком 1.
52 поделить на 2 выходит 26 с остатком 0.
26 поделим на 2 - получится 13 с остатком 0.
13 - 6 с остатком 1.
Делим 6 и получаем 3 с остатком 0.
3 на 2 - выходит 1 с остатком 1.
1 поделить на 2 - получается 0 с остатком 1.
Теперь записываем значение в обратном порядке (с конца): 11010010.
Прости, но тебе придётся самому решить
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var a: real;
n: integer;
begin
write('число: '); readln(a);
n:=Floor(a*1000);
if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or
((n div 100) mod 10 = 0) then writeln(1)
else writeln(0);
end.
число: 4785.201457
1