Программа и процедура перевода из 10 сс в 8 сс на Паскале.Заранее большой спасибо.
Программа и процедура перевода из 10 сс в 8 сс на Паскале.
Заранее большой спасибо.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы