Question

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

Answer 1

Ответ:

Объяснение:

program DecimalToOctal;

var

 decimal, remainder: Integer;

 octal: String;

begin

 Write('Enter a positive decimal number: ');

 ReadLn(decimal);

 octal := '';

 while decimal > 0 do

 begin

   remainder := decimal mod 8;

   decimal := decimal div 8;

   octal := IntToStr(remainder) + octal;

 end;

 WriteLn('Octal equivalent: ', octal);

end.

Answer 2

Ответ:
На изображении