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

Question

Информатика

Веселье

17 февраля, 09:58

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

+4

Ответы (1)

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

Агафон · Answer 1

Var a:string[20]; st, b, i:integer;

begin

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

readln (a) ;

st:=1; b:=0;

for i:=length (a) downto 1 do

begin

if a[i]='1' then b:=b+st;

st:=2*st;

end;

writeln (b) ;

end.