TCP/IP — сетевая модель передачи данных, представленных в цифровом виде. Модель описывает передачи данных от источника информации к получателю. В модели предполагается прохождение информации через четыре уровня, каждый из которых описывается правилом (протоколом передачи). Наборы правил, решающих задачу по передаче данных, составляют стек протоколов передачи данных, на которых базируется Интернет. Название TCP/IP происходит из двух важнейших протоколов семейства — Transmission Control Protocol (TCP) и Internet Protocol (IP), которые были первыми разработаны и описаны в данном стандарте. Также изредка упоминается как модель DOD (Department of Defense) в связи с историческим происхождением от сети ARPANET из 1970-х годов (под управлением DARPA, Министерства обороны США).
Uses Crt; Var a,b,i,tek,sum10,sum3:integer; Procedure TroichSS (te:integer; var sum3:integer); var m:array[1..10]of integer; k,j,su3:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 3; te:=te div 3; until te<3; inc(k); m[k]:=te mod 3; for j:=k downto 1 do begin su3:=su3+m[j]; write(m[j]:3) end; write(' su3=',su3); sum3:=su3; su3:=0; k:=0; end; Procedure DesiatSS (te:integer; var sum10:integer); var m:array[1..10]of integer; k,j,su10:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 10; te:=te div 10; until te<10; inc(k); m[k]:=te mod 10; for j:=k downto 1 do begin su10:=su10+m[j]; write(m[j]:3); end; writeln(' su10=',su10); sum10:=su10; su10:=0; k:=0; end; Begin //Задание интервала [a; b] a:=1; b:=1000; writeln('Интервале [a; b]',a:4,b:4); //Сумма цифр троичных и десятичных чисел for i:=a to b do begin TroichSS(i,sum3); DesiatSS(i,sum10); if sum3=sum10 then begin writeln('Э в р и к а!'); delay(5000); end; end; writeln('К о н е ц.'); End.
TCP/IP — сетевая модель передачи данных, представленных в цифровом виде. Модель описывает передачи данных от источника информации к получателю. В модели предполагается прохождение информации через четыре уровня, каждый из которых описывается правилом (протоколом передачи). Наборы правил, решающих задачу по передаче данных, составляют стек протоколов передачи данных, на которых базируется Интернет. Название TCP/IP происходит из двух важнейших протоколов семейства — Transmission Control Protocol (TCP) и Internet Protocol (IP), которые были первыми разработаны и описаны в данном стандарте. Также изредка упоминается как модель DOD (Department of Defense) в связи с историческим происхождением от сети ARPANET из 1970-х годов (под управлением DARPA, Министерства обороны США).