1. Имя протокола доступа и пути. Протокол определяет связи для передачи данных, путь определяет местоположение данных. Также гипперсылка состоит из самой ссылки и гипертекста, который определяет ее внешний вид. 2. Имя протокола, IP адрес или имя домена, путь к файлу 3. HTML задает местоположение элементов веб страницы на экране и их внешний вид и свойства и содержание. А с языков программирования можно делать вообще всё. 4. Интернет состоит из узлов и серверов. Узлы соединяют сервера в сети и строят маршруты к ним. А уже на самих серверах могут быть Сайты, порталы..
Const N = 30; Var Days:array[1..N] of boolean; B,A,i:integer; Begin B:=random(15,100); A:=random(60,100); WriteLn('Высота дерева: ',B/10,' м'); WriteLn('Высота подъёма улитки: ',A,' см'); Write('Погода: '); For i:= 1 to N do Begin if random(2) = 1 then Days[i]:=true else Days[i]:=false; if Days[i] then Write('солнечно ') else Write('пасмурно ') End; WriteLn;
For i:= 1 to N do Begin if Days[i] then Begin if A+3<=B then A:=A+3 else A:=B; End else Begin if A-2>=0 then A:=A-2 else A:=0; End End; Write('Высота поъёма улитки: ',A/10,' м') End.
Также гипперсылка состоит из самой ссылки и гипертекста, который определяет ее внешний вид.
2. Имя протокола, IP адрес или имя домена, путь к файлу
3. HTML задает местоположение элементов веб страницы на экране и их внешний вид и свойства и содержание. А с языков программирования можно делать вообще всё.
4. Интернет состоит из узлов и серверов. Узлы соединяют сервера в сети и строят маршруты к ним. А уже на самих серверах могут быть Сайты, порталы..
N = 30;
Var
Days:array[1..N] of boolean;
B,A,i:integer;
Begin
B:=random(15,100);
A:=random(60,100);
WriteLn('Высота дерева: ',B/10,' м');
WriteLn('Высота подъёма улитки: ',A,' см');
Write('Погода: ');
For i:= 1 to N do
Begin
if random(2) = 1 then Days[i]:=true
else Days[i]:=false;
if Days[i] then Write('солнечно ')
else Write('пасмурно ')
End;
WriteLn;
For i:= 1 to N do
Begin
if Days[i] then
Begin
if A+3<=B then A:=A+3
else A:=B;
End
else
Begin
if A-2>=0 then A:=A-2
else A:=0;
End
End;
Write('Высота поъёма улитки: ',A/10,' м')
End.