Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
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.
99
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам