Прости, я не могу это щас решить
Объяснение:
Берём например 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.
Прости, но тебе придётся самому решить
ответ описал в объяснении
Объяснение:
var a,b,c: real; //Объявление переменных a,b,c типа real(вещественный)
x1,x2,D: real; //Объявление переменных x1,x2,D типа real(вещественный)
begin //Начало программы, ее тело
readln(a,b,c); //Ввод с клавиатуры значений a,b,c
D := b*b - 4*a*c; //Формула вычисления дискриминанта
if D<0 then //Оператор если, в данном случае "ЕСЛИ ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ,ТО "
writeln('Корней нет') //Выполнение условия ЕСЛИ, вывод текста "Корней нет"
else if D=0 then begin // Условие ИНАЧЕ ЕСЛИ, проверка дискриминанта на принадлежность к нулю
x1 := -b/2/a; //Выполнение условия ИНАЧЕ ЕСЛИ, нахождение х1
writeln('x1=x2=',x1); //вывод корней
end //Окончание предыдущего блока begin
else begin //Условие ИНАЧЕ
x1 := (-b-sqrt(D))/2/a; //нахождение первого корня
x2 := (-b+sqrt(D))/2/a; //нахождение второго корня
writeln('x1=',x1,' x2=',x2); // вывод корней уравнения
end; //Окончание предыдущего блока begin
end. //Окончание программы
