• ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ


    Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более 10 цифр).

    Входные данные
    Вводится натуральное число, записанное в двоичной системе.

    Выходные данные
    Выведите число, записанное в десятичной системе.

    Примеры
    входные данные
    1
    выходные данные
    1
    входные данные
    1001
    выходные данные
    9

Ответы 1

  • {by Puporev}const digit : string[16] = '0123456789ABCDEF';Function ToDec(n:string;r:byte) : longint;var m,i:longint;begin  m:=0;  for i:=1 to length(n) do  m:=m*r+pos(n[i],digit)-1;  ToDec:=m;end;Var S : String;Begin  Readln(S);  Writeln(ToDec(S,2));end.
    • Автор:

      devonluse
    • 2 года назад
    • 9
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years