1.какой целью используется гиперссылка? 2.есть ли разница между ссылкой и гиперссылкой? 3.для чего используется инструмент подсказка при создании гиперссылки4.почему важно создание? гиперссылкой при оформлении текстового документа? ​

var

a : integer; flag : byte; s : string;

function hextodec (s : string) : integer; var i, d, dig : integer; res : integer; begin d : = 1; res : = 0; for i : = length (s) downto 1 do begin dig : = ord (s[i]); if dig < 58 then res : = res + (dig - 48) * d else res : = res + (dig - 55) * d; d : = d * 16; end; hextodec : = res; end;

function dectohex (a : integer) : string; var dig : integer; c : char; res : string; begin res : = ''; repeat dig : = a mod 16; if dig < 10 then c : = chr (dig + 48) else c : = chr (dig + 55); res : = res + c; a : = a div 16; until a = 0; dectohex : = res; end;

function revert (s : string) : string; var i : integer; r : string; begin r : = ''; for i : = length (s) downto 1 do r : = r + s[i]; revert : = r; end;

begin writeln ('введите систему счисления, в которую переводим'); readln (flag); if (flag = 16) then begin writeln ('введите число в десятичной системе счисления'); readln (a); writeln (revert (dectohex (; end else if (flag = 10) then begin writeln ('введите число в шестнадцатиричной системе счисления'); readln (s); writeln (hextodec (s)); end else writeln ('ошибка : неверная система счисления'); readln; end.

var

  s : string;

  i : integer;

  f : boolean;

begin

  readln (s);

  writeln ('тут ', length (s), ' символов');

  f : = true;  

for i : = 1 to length (s) div 2 do

    if s[i] < > s[length (s) - i + 1] then f : = false;

  writeln ('это слово является перевертышем: ', f); //true/false

end.

 

var

  s : string;

  i, k, count : integer;

  c : char;

begin

  readln (s);

  count : = 0;

  for i : = 1 to length (s) do

    if s[i] < > ' ' then

    begin

        c : = s[i];

        k : = i + 1;

        break;

    end;

  for i : = k to length (s) do

    if (s[i] = ' ') and (c < > ' ') then

    begin

        if s[i - 1] = c then inc (count);

        c : = ' ';

    end

    else if c = ' ' then c : = s[i];

  if (c < > ' ' ) and (s[length (s)] < > ' ') and (c = s[length (s)]) then inc (count);

  writeln (count);

end.