Переведите число 321 из десятичной системы счисления в семеричную систему счисления

berdyugin berdyugin    3   05.07.2019 20:30    0

Ответы
Георгий20004 Георгий20004  29.07.2020 08:22
Const
  Rn : String[36] = '0123456789';

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(321,7)); { 636 }
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика