С помощью Паскаля: Число в двоичной системе счисления, введенное

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

Используя цикл! Желательно попроще (без length, ord, exp).

Question

Информатика

Эллада

9 ноября, 18:13

С помощью Паскаля: Число в двоичной системе счисления, введенное

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

Используя цикл! Желательно попроще (без length, ord, exp).

+4

Ответы (1)

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

Моша · Answer 1

var

a, b, i: integer;

d: string;

begin

readln (a) ;

d : = a. ToString () ;

for i : = length (d) downto 1 do

b + = byte. Parse (d[i]) * round (power (2, length (d) - i)) ;

writeln (b) ;

end.

Незя без length, нерационально