Перевести десятичное число 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы