Напишите линейную программу перевода любого целого - вопрос №1380932 от трум1 25.03.2020 10:43

Question

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

трум1 · Answer

Pascalvar 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....