Составить программу перевода целого положительного числа, которое вводится с клавиатуры, из десятичной системы счисления в восьмеричную
систему счисления Pascal
Ответы
Ответ дал:
0
Ответ:
Объяснение:
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.
Ответ дал:
0
Ответ:
На изображении
Приложения:
![](https://st.uroker.com/files/e05/e05601935fd5004a8099be258bb91391.png)
![](https://st.uroker.com/files/c27/c271a72f6bf75b8f5cdd5be77943747f.png)
Вас заинтересует
2 месяца назад
2 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад