напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления.
Answers & Comments
Hasl1337
Var i, input: integer; output: real; temp_str: string; begin write('Введите четырехзначное двоичное число: '); readln(input); temp_str := IntToStr(input); for i := 1 to 4 do output := output + (StrToInt(temp_str[i]) * exp(ln(2)*(4-i))); writeln(input, ' в десятичной: ', output); end.
Answers & Comments
output: real;
temp_str: string;
begin
write('Введите четырехзначное двоичное число: '); readln(input);
temp_str := IntToStr(input);
for i := 1 to 4 do output := output + (StrToInt(temp_str[i]) * exp(ln(2)*(4-i))); writeln(input, ' в десятичной: ', output);
end.