Question

Ввести двузначное целое число х<15. Написать программу перевода его в восьмеричную систему счисления.(Паскаль)

Answer 1

Странное задание!
Если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. В восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, ... 14₁₀ = 16₈

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите число от 10 до 14:');
  Writeln('В восьмеричной системе оно записывается как ',n+2)
end.

Пример
Введите число от 10 до 14: 13
В восьмеричной системе оно записывается как 15

Answer 2

Const zs='01234567'; //цифры в 8 СС
s:string;
begin
write('Введите число в 10 СС: ');
readln(n);
s:='';
while n>0 do
begin
s:=zs[n mod 8+1]+s; //берем остаток от деления на 8 и эту цифру пишем в начало строки
n:=n div 8 //сокращаем число
end;
write('Число в 8 СС: ',s);
readln
end.

Answer 3

Для перевода двузначного целого числа х в восьмеричную систему счисления в языке Паскаль, можно воспользоваться следующим кодом:

pascalCopy code
program DecimalToOctal;

var
  x, quotient, remainder: integer;
  octalDigits: array[0..10] of integer; // Массив для хранения восьмеричных цифр
  i: integer;

begin
  writeln('Введите двузначное целое число x (x < 15): ');
  readln(x);

  if (x >= 10) or (x < 0) then
  begin
    writeln('Некорректный ввод. Число должно быть меньше 10 и больше или равно 0.');
    exit;
  end;

  quotient := x;
  i := 0;

  while quotient > 0 do
  begin
    remainder := quotient mod 8;
    quotient := quotient div 8;
    octalDigits[i] := remainder;
    Inc(i);
  end;

  writeln('Число ', x, ' в восьмеричной системе счисления: ');

  // Выводим восьмеричные цифры в обратном порядке
  for i := i - 1 downto 0 do
    write(octalDigits[i]);

  readln;
end.

Когда программа запустится, она попросит вас ввести двузначное целое число х. Затем она проверит корректность ввода и выполнит перевод числа в восьмеричную систему счисления, выводя результат на экран.

Обратите внимание, что в Паскале используется индексация массивов с 0, поэтому для хранения восьмеричных цифр мы используем массив octalDigits размером 11 (от 0 до 10). Количество цифр в восьмеричном числе не превысит 11, так как само 15 в восьмеричной системе записывается как 17.

Если введенное число х не соответствует условиям (не двузначное или больше либо равно 10), программа выдаст сообщение об ошибке. В противном случае, она продолжит выполнение и выведет результат в восьмеричной системе.