Функции физического уровня реализуются на всех устройствах, подключенных к сети. Со стороны компьютера функции физического уровня выполняются сетевым адаптером или последовательным портом. К физическому уровню относятся физические, электрические и механические интерфейсы между двумя системами.
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz; var n, i, u, d, f, c, ff, cc: integer; y: real; procedure GetDiv(); begin ff := f; cc := c; d := 0; while cc > 0 do begin d := d + ff; ff := ff + 1; cc := cc - 1; end; end; function Facto(num: integer): integer; var ff, fi: integer; begin ff := 1; for fi := 2 to num do ff := ff * fi; Facto := ff; end; begin write('n = '); readln(n); y := 0; f := 2; c := 2; for i := 1 to n do begin u := Facto( n - (i - 1) ); if i = 1 then d := 1 else begin GetDiv(); f := ff + 1; c := c + 1; end; y := y + (u / d); end; writeln('y = ', y); end.
program z1; var k, m, r: integer; begin write('k = '); readln(k); write('m = '); readln(m); r := 60 * k + m; writeln('в минутах: ', r); end.
2)
program z2; var k, m, a, b, l: integer; begin write('k = '); readln(k); write('m = '); readln(m); write('a = '); readln(a); write('b = '); readln(b); write('l = '); readln(l); if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then writeln('пойду') else writeln('не пойду'); end.
3)
program z3; var m, r: integer; begin write('m = '); readln(m); r := m; while r >= 60 do r := r - 60; writeln('стрелка будет показывать ', r, ' минут'); end.
Это Физический уровень
Объяснение:
Функции физического уровня реализуются на всех устройствах, подключенных к сети. Со стороны компьютера функции физического уровня выполняются сетевым адаптером или последовательным портом. К физическому уровню относятся физические, электрические и механические интерфейсы между двумя системами.