Запишите 32-битный ip-адрес в виде четырёх десятичных чисел, разделённых точками: 0010 0110 1011 0111 0000 1111 1011 0110

  00100110 10110111 00001111 10110110  00100110₂ = 38₁₀ 10110111₂ = 183₁₀ 00001111₂ = 15₁₀ 10110110₂ = 182₁₀ ответ: 38.183.15.182.

Const   n=10; var   a: array[1..n] of integer;   i,kp,sn: integer; begin   randomize;   writeln('элементы массива');   kp: =0; sn: =0;   for i: =1 to n do   begin       a[i]: = random(31)-10;       write(a[i]: 4);       if a[i]> 0 then inc(kp);       if (i mod 2)< > 0 then sn: =sn+a[i]   end;   writeln;   writeln('количество положительных элементов: ',kp);   writeln('сумма элементов на нечетных местах: ',sn);   writeln('элементы массива после замены');   for i: =1 to n do   begin       if a[i]< 10 then a[i]: =10;       write(a[i]: 4)   end;   writeln end. тестовое решение: элементы массива   10  11  -4  11  12  13  -1  -2  -8    7 количество положительных элементов: 6 сумма элементов на нечетных местах: 9 элементы массива после замены   10  11  10  11  12  13  10  10  10  10

Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: b(x1,y1) и d(x2,y2). но можно также задать и другую диагональ (ac). если считать, что стороны прямоугольника параллельны осям координат то длины сторон могут быть найдены как тогда можно найти и периметр: нахождение периметра оформим процедурой per(x1,y1,x2,y2,p) procedure per(x1,y1,x2,y2: real; var p: real); begin   p: =2*(abs(x2-x1)+abs(y2-y1)) end; var   x1,x2,y1,y2,p: real; begin   write('введите координаты любой вершины прямоугольника: ');   read(x1,y1);   write('введите координаты противоположной вершины прямоугольника: ');   read(x2,y2);   per(x1,y1,x2,y2,p);   writeln('периметр прямоугольника равен ',p) end. тестовое решение: введите координаты любой вершины прямоугольника: 5 -7 введите координаты противоположной вершины прямоугольника: -4 12 периметр прямоугольника равен 56