заранее! 1) Задан IP адрес компьютера и маска подсети. Определите номер компьютера в этой сети. 10.59.35.44 255.255.255.248 2) Задан IP адрес компьютера и маска подсети. Определите адрес подсети. 10.59.35.44 255.255.255.248 3) Отметьте все значения, которые могут быть масками подсетей. 255.255.0.0 255.255.0.255 255.255.255.192 255.255.192.192 255.255.255.224 4) Как называется уникальный адрес, который присваивается сетевой карте? DNS-сервер MAC-адрес адрес шлюза доменный адрес IP-адрес 5) Сколько компьютеров (хостов) может быть в сети с приведенной маской. Учтите, что два адреса не используются (адрес подсети и широковещательный адрес

1)4

2)10.59.35.40

3)255.255.0.0

255.255.255.192

255.255.255.224

4) MAC-адрес

5) а где маска-то? здесь можно узнать ответ в последней строчке(Hosts):

https://ip-calculator.ru/

В Паскале есть функция Round, которая использует следующий "стандартный" алгоритм округления:
Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица.
А функция Trunc возвращает целую часть числа.

var
  p:real;
begin
  Write('Введите число: '); Read(p);
  Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p))
end.

Тестовое решение:
Введите число: -12.74
Округленное значение: -13, целая часть: -12

Введите число: 12.93
Округленное значение: 13, целая часть: 12

Введите число: 9.4323
Округленное значение: 9, целая часть: 9

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin 
   writeln('Введите количество ящиков мыла завезенных на склад');
  readln (n);
  writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
  readln (k); 
  n:=n-(10*k);
  If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
          else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.