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

@sparta3131 · Регистрация: 14.12.2012

Author24 — интернет-сервис помощи студентам

\Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную

@Talkoflights · 27.12.2012, 17:22

Puporev™

Pascal

uses crt;
procedure dectooct(dec:word;var res:string);
var s:string;
begin
 if dec>7 then dectooct((dec div 8),res) else res:='';
 str((dec mod 8),s);
 res:=res+s;
end;
var N:word;
    s:string;
begin
clrscr;
write('Vvedite chislo');
readln(n);
dectooct(n,s);
writeln(s);
readln
end.

@sparta3131 · 27.12.2012, 17:44 **[ТС]**

спасибо большое)

@sparta3131 0 / 0 / 1 Регистрация: 14.12.2012 Сообщений: 31
		1
	Перевод натурального числа из десятичной системы счисления в восьмеричную 27.12.2012, 16:56. Показов 4070. Ответов 2 Метки нет (Все метки) \Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную 0

@sparta3131 0 / 0 / 1 Регистрация: 14.12.2012 Сообщений: 31
	27.12.2012, 17:44 [ТС]	3
	спасибо большое) 0

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

Решение