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

Входные данные: 1

Выходные данные: 1

Question

Информатика

Лейла

17 октября, 17:38

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

Входные данные: 1

Выходные данные: 1

+4

Ответы (1)

Знаете ответ на вопрос?

Гуся · Answer 1

Var

n, s, p, d:longint;

begin

Write ('Введите двоичное число: ') ; Read (n) ;

s:=0; p:=1;

repeat

d:=n mod 10;

s:=s+d*p;

p:=p*2;

n:=n div 10

until n=0;

Writeln ('В десятичной системе это число равно ', s)

end.

Пример

Введите двоичное число: 1101011

В десятичной системе это число равно 107

Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более 10 цифр). Нужна программа на паскале.Входные данные: 1Выходные данные: 1

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

Входные данные: 1

Выходные данные: 1