profile
Опубликовано 6 лет назад по предмету Информатика от sanekvorobev2

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

  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.
Самые новые вопросы