Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления.

164

214

Посмотреть ответы 2

Ответы на вопрос:

Kov3456

Информатика

4,7(48 оценок)

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-; writeln(input, ' в десятичной: ', output); end.