2. нужно только написать программу на языке pascal

Ирав как вари! а вал как лава!

// pascalabc.net procedure rectanglesquare; var   a,b: double; begin   write('введите через пробел длины сторон прямоугольника: '); read(a,b);   writeln('площадь прямоугоьника равна ',a*b) end; var   i: byte; begin   for i: =1 to 3 do rectanglesquare end. тестовое решение: введите через пробел длины сторон прямоугольника: 3 7 площадь прямоугоьника равна 21 введите через пробел длины сторон прямоугольника: 12.4 15.8 площадь прямоугоьника равна 195.92 введите через пробел длины сторон прямоугольника: 14 12.5 площадь прямоугоьника равна 175

Представим 155 в двоичном виде: 10011011 представим 145 в двоичном виде: 10010001 маска в ipv4  - последовательность из 32-х  1 и 0 такая, что сначала идет n единиц, затем 32-n нулей. число единиц равно наибольшему количеству совпавших бит у адресов слева направо. видим, что первые два блока полностью , так как их десятичные записи . различия уже начинаются в третьем блоке. в разложении чисел видно, что лишь первые 4 бита, дальше уже идет первое несовпадение. поэтому маска для этих адресов выглядит так: 11111111.11111111.11110000.00000000 переводим 11110000 в десятичный вид и получаем 240.