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

Question

Гость

Информатика

8 января, 11:19

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

+5

Ответы (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.