Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.
Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
Begin
a:=a+2;
b:=b+1
End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.
Сравнить с 1Мбайтом не очень понятно.
2. 20480бит=2560байт=320Кбайт < 1Мб
3. 5Мбайт=5120 Кбайт=5242880байт=41943040бит>1Мбайт
4. 153600байт=150 Кбайт<1Мбайт
5. 6Кбайт=6144 байт=49152 бит<1Мбайт
Основа гипертекста это перекрестные ссылки.
Как пример можно взять любой вики сайт, где каждая статья имеет ссылки на соотносящиеся к ней статьи и т.д.
Любой сайт или бумажная энциклопедия есть пример гипертекста