Перевести код с c++ на pascal (турбо паскаль)#include #include #include using namespace std; const double eps = 0.01; double func(double x) {return x*sinh(x); }double simpson_integral(double a, double b, int n){ const double h = (b-a)/n; double k1 = 0, k2 = 0; for(int i = 1; i < n; i += 2) { k1 += func(a + i*h); k2 += func(a + (i+1)*h); } return h/3*(func(a) + 4*k1 + 2*k2); }int main(){ double s1, s; double a = 0, b = 1; int n = 2; s1 = simpson_integral(a, b, n); do { s = s1; n = n + 1; s1 = simpson_integral(a, b, n); } while (fabs(s1 - s) > eps); cout < < s1 < < endl; return 0; }

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Xerox Ethernet

1BROAD36


1BASE5

10BASE5, IEEE 802.3

10BASE2, IEEE 802.3a

StarLAN 10 это виды

пакетная технология передачи данных преимущественно локальных компьютерных сетей. Стандарты Ethernet определяют проводные соединения и электрические сигналы на физическом уровне, формат кадров и протоколы управления доступом к среде — на канальном уровне модели OSI. Ethernet в основном описывается стандартами IEEE группы 802.3. Ethernet стал самой распространённой технологией ЛВС в середине 1990-х годов, вытеснив такие устаревшие технологии, как Arcnet, и Token ring.
вооот