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

Question

Тимофей Горбунов

Информатика

20 сентября, 17:51

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Шакки · Answer 1

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.