Вопрос pascal На вход подается число в двоичной системе счисления, на выход - оно же в десятичной. Пример:

F

forcrack

Регистрация

1 Окт 2013

Сообщения

82

Репутация

0

Спасибо

0

Монет

0

• 1 Окт 2017

• #2

Так же, как обычно, делением с остатком

 

Позитивный голос 0

A

Andrey151098

Регистрация

24 Июн 2013

Сообщения

72

Репутация

0

Спасибо

0

Монет

0

• 1 Окт 2017

• #3

>Используя массив массив А массив тут не нужен не нужен

 

Позитивный голос 0

F

feda

Регистрация

21 Сен 2013

Сообщения

80

Репутация

0

Спасибо

0

Монет

0

• 1 Окт 2017

• #4

var i, n: integer; s: string; ReadLn(s); // из двоичной в деятичную n := 0; for i := 1 to Length(s) do n := (n shl 1) or (Ord(s) - 48); WriteLn; ReadLn; // из десятичной в двоичную s := '; while n > 0 do begin Insert(Char(48 + (n and 1)), s, 1); n := n shr 1; end; WriteLn(s);

 

Позитивный голос 0