Товарищи! , , верно составить 2 программы в паскале. без вас не справлюсь. заранее ! 1. равны ли площади прямоугольного треугольника с катетами а, в и прямоугольного треугольника с катетами k, m. 2. дано трехзначное число. определить, какая из его цифр больше первая или вторая.

1var     a, b, k, m: real; begin     writeln('введите поочерёдно катеты a, b, k и m: ');     readln(a, b, k, m);         if (0.5 * a * b) = (0.5 * k * m) then         writeln('площади треугольников равны! ')     else writeln('площади треугольников не равны! '); end. 2var     number, firstdigit, seconddigit: integer; begin     write('введите число: ');     readln(number);         if ((number > = 100) and (number < = 999)) or ((number < = -100) and (number > = -999)) then         begin             firstdigit : = number div 100;             seconddigit : = (number div 10) mod 10;                         if (firstdigit > seconddigit) then                 writeln(firstdigit, ' > ', seconddigit)             else if (firstdigit < seconddigit) then                 writeln(firstdigit, ' < ', seconddigit)             else writeln(firstdigit, ' = ', seconddigit)         end     else writeln('число не трёхзначное! '); end.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   range(1,15).select(i-> format('{0,2}{1,6}{1,6}',i,i*i,i*i*(newline) end. результат   1        1        1   2        4        4   3        9        9   4      16      16   5      25      25   6      36      36   7      49      49   8      64      64   9      81      81 10    100    100 11    121    121 12    144    144 13    169    169 14    196    196 15    225    225

Адрес сети получается в результате поразрядной конъюнкции(умножения) 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.0

2) В результате умножения 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

Объяснение: