Программа и процедура перевода из 10 сс в 8 сс ** Паскале.Заранее большой спасибо.

Question

Программа и процедура перевода из 10 сс в 8 сс на Паскале.
Заранее большой спасибо.

Answer 1

Var  n: integer;
function oct(x: integer): string;
var  s: string;
begin
while x > 0 do
     begin
     s := IntToStr(x mod 8) + s;
     x := x div 8;
     end;
Result := s;
end;

begin 
write('Введите число: '); 
readln(n); 
writeln('Восьмиричная форма: ', oct(n))
end.