Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. например, дано число в двоичной системе счисления: 11012. перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13. надо на паскале сделать.​

megachiglakov megachiglakov    3   15.05.2019 18:48    10

Ответы
tatpolli8 tatpolli8  30.09.2020 18:29
Pascal

var n,k,m: integer;

begin

 write('двоичное число:  ');  readln(n);

 k:=1;  m:=0;

 repeat

   m:=m+k*(n mod 10);

   n:=n div 10;

   k:=k*2;

 until n=0;

 writeln('десятичное число:  ',m);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика