Написать программу в PascalABC!

Число в двоичной системе счисления, введенное

пользователем программы, преобразовать в десятичное число.

Question

Информатика

Лекса

17 марта, 09:15

Написать программу в PascalABC!

Число в двоичной системе счисления, введенное

пользователем программы, преобразовать в десятичное число.

+2

Ответы (1)

Знаете ответ?

Манюша · Answer 1

Var a:string;

i, a1, ar:integer; b:real;

begin

readln (a) ;

b:=0;

for i:=1 to length (a) do

begin

val (a[length (a) - i+1], a1, ar) ;

b:=b+a1*exp ((i-1) * ln (2)) ;

end;

writeln ('b=', b) ;

end.

Написать программу в PascalABC!Число в двоичной системе счисления, введенноепользователем программы, преобразовать в десятичное число.

Написать программу в PascalABC!

Число в двоичной системе счисления, введенное

пользователем программы, преобразовать в десятичное число.