Рекурсивный перевод в различные системы счисления - Turbo Pascal

Формулировка задачи:

Дано натуральное число n>1. Перевести его в систему счисления 7.

Код к задаче: «Рекурсивный перевод в различные системы счисления - Turbo Pascal»

textual
function recursion(n:longint):string;
var ch:char;
begin
   if n<>0 then
   begin
      ch:=char(n mod 7 +48);
      recursion:=recursion(n div 7)+ch;
   end
   else recursion:='';
end;
 
var n:longint;
begin
   write('Введите натуральное число>0: ');
   readln(n);
   writeln('Семиричная система: ',recursion(n));
   readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ