Напишите линейную программу перевода хоть какого целого четырехзначного двоичного числа в

Напишите линейную программу перевода хоть какого целого четырехзначного двоичного числа в десятичную систему счисления. К примеру, дано число в двоичной системе счисления: 11012. Перевод в десятичную систему производится так: 1*2^3 +1-2^2 + 0*2^1+1 = 13.
Помогите пж. надобно на паскале сделать.

Задать свой вопрос
1 ответ

Pascal

var n,k,m: integer;

begin

 write('двоичное число:  ');  readln(n);

 k:=1;  m:=0;

 repeat

   m:=m+k*(n mod 10);

   n:=n div 10;

   k:=k*2;

 until n=0;

 writeln('десятичное число:  ',m);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт