Question

Программа на Паскале. Составить программу превода натурального числа N из 10 системы счисления в 8 систему счисления через рекурсию. Что число натуральное, проверять не надо. Если что то не понятно, спрашивайте)

Answer 1

PascalABC.NET 3.2

function TranslateFrom10To8(n: integer): string;
begin
  if n = 0 then
    result := ''
  else
    result := TranslateFrom10To8(n div 8) + IntToStr(n mod 8);
end;

begin
  var N := ReadInteger();
  print(TranslateFrom10To8(N));
end.