Частичная карта Интернета, основаная на данных от 15 января 2005 года с сайта www.opte. org/maps.
Каждая линия нарисована между двумя узлами сойдененая IP-адреса . Длина динии показывает временную задержку( пинг) между узлами. Карта представляет менее чем 30% сетей класса С, доступных для сбора данных в 2005 году. Цвет линии соотвествует её местоположению согласно RFK1918. Часто упоминаются как Всемирная сеть и Глобальная сеть, а такде просто сеть.
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var s, k: integer; label met; begin s:=-12; k:=90; Writeln('s=',s,', k=',k); s:=s+10; Writeln('s=',s); met: Writeln('Метка met:'); k:=k+10; Write('k=',k); if k<200 then s:=50 else s:=s+k; Writeln(', s=',s); if k<200 then goto met; Writeln('Результат: s=',s) end.
Реферат на тему Интернет и телевидение.
Частичная карта Интернета, основаная на данных от 15 января 2005 года с сайта www.opte. org/maps.
Каждая линия нарисована между двумя узлами сойдененая IP-адреса . Длина динии показывает временную задержку( пинг) между узлами. Карта представляет менее чем 30% сетей класса С, доступных для сбора данных в 2005 году. Цвет линии соотвествует её местоположению согласно RFK1918. Часто упоминаются как Всемирная сеть и Глобальная сеть, а такде просто сеть.
Интернет великая сила!