Аскольд
6 год назад
Программа на Паскале. Составить программу превода натурального числа N из 10 системы счисления в 8 систему счисления через рекурсию. Что число натуральное, проверять не надо. Если что то не понятно, спрашивайте)
ОТВЕТЫ
Kalistratovich
Jul 22, 2019
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.
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
Смежные вопросы: