Question

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

Answer 1

Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch <> 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.

Answer 2

Для перевода числа из десятичной системы счисления в восьмеричную систему счисления в языке программирования Pascal (Delphi), вы можете использовать следующий код:

pascalCopy code
program DecimalToOctal;
var
  decimalNumber, octalNumber: Integer;
  digit, multiplier, remainder: Integer;
begin
  Write('Введите десятичное число: ');
  ReadLn(decimalNumber);
  
  octalNumber := 0;
  multiplier := 1;
  
  while decimalNumber > 0 do
  begin
    remainder := decimalNumber mod 8;
    octalNumber := octalNumber + remainder * multiplier;
    decimalNumber := decimalNumber div 8;
    multiplier := multiplier * 10;
  end;
  
  WriteLn('Число в восьмеричной системе: ', octalNumber);
end.

Эта программа сначала запрашивает у пользователя десятичное число, а затем использует цикл для преобразования его в восьмеричную систему счисления и выводит результат.