Question

Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в шестнадцатиричной системе счисления. Через процедуру или функцию

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

function HexToDec(n:string):string;
begin
  var s:='0123456789ABCDEF';
  var (p,pa):=(0,1);
  foreach var c in n.Reverse do begin
    p+=pa*(Pos(c,s)-1);
    pa*=16
    end;
  Result:=p.ToString
end;

begin
  var s:=ReadlnString('Введите 16-ричное число:');
  HexToDec(s).Println
end.