Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в шестнадцатиричной системе счисления. через процедуру или функцию
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.
Внимание! Если программа не работает, обновите версию!
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.