Введите в компьютер и отладьте программу Numbers_2_10. Переведите с ее помощью в десятичную систему
Введите в компьютер и отладьте программу Numbers_2_10. Переведите с ее помощью в десятичную систему счисления следующие двоичные числа: 111110; 1111111; 100000. Проверьте правильность результатов.
Program Numbers_2_10;
var N10, N2, k: longint;
BEGIN
write('N2='); readln(N2);
{ввод исходного двоичного числа}
к:=1; N10:=0;
while (N2<>0) do
{цикл выполняется, пока N2 не равно нулю}
begin
N10:=N10 + (N2 mod 10)*k;
{суммирование развернутой формы}
k:=k*2;
{вычисление степеней двойки: 2, 22, 23}
N2:=N2 div 10
{отбрасывание младшей цифры}
end;
writeln('N10=', N10) {вывод десятичного числа}
END.