Введите в компьютер Numbers_10_2 и переведите с ее помощью в двоичную систему счисления
Введите в компьютер и отладьте программу Numbers_10_2. Переведите с ее помощью в двоичную систему счисления следующие десятичные числа: 255; 512; 1023. Проверьте правильность результатов.
Program Numbers_10_2;
var N10, N2, k: longint;
BEGIN
write('N10='); readln(N10);
{Ввод исходного десятичного числа}
к:=1; N2:=0;
repeat
N2:=N2 + (N10 mod 2)*k;
{Суммирование развернутой формы}
к:=к*10;
{Вычисление базиса: 10, 100, 1000, ...}
N10:=N10 div 2
{Целочисленное деление на 2}
until (N10=0);
{Цикл заканчивает выполнение при N10=0}
writeln('N2=', N2) {Вывод двоичного числа}
END.