Напишите линейную программу перевода любого целого ...
Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. Например, дано число в двоичной системе счисления: 11012. Перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13.Помогите пж. надо на паскале сделать.
Есть ответ
12.12.2022
260
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022