Program pr3;
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751
N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
1. Добавлено 3 бита, 224₁₀=1110 000₂
2. Судя по маске получим 8 подсетей, количество битов узлов подсети - 4
3. В каждой подсети по 30 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 192.168.200.128
5. Адрес IPv4 первого узла в этой подсети 192.168.200.129
6. Адрес IPv4 последнего узла в этой подсети 192.168.200.158
7. Широковещательный адрес IPv4 в этой подсети 192.168.200.159
