Перевести десятичное число 687 в двоичную, семеричную, восьмеричную, шестнадцатиричную системы счисления
Перевести десятичное число 687 в двоичную, семеричную, восьмеричную, шестнадцатиричную системы счисления
Ответ(ы) на вопрос:
Гость
2: 1010101111
7: 2001
8: 1257
16: 2AF
Обоснование:
Const Rn : String[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Function DecToN(a : Longint; Raz : Byte) : String;
Begin
If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
else DecToN:=Rn[a+1];
end;
Begin
Writeln(DecToN(687,2));
Writeln(DecToN(687,7));
Writeln(DecToN(687,8));
Writeln(DecToN(687,16));
end.
Не нашли ответ?
Похожие вопросы