PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
1. Если надо преобразовать число без знака в число
begin var n:=ReadInteger; // исходное число n:=n.ToString.Inverse.ToInteger; // полученное число n.Println; // вывод результата end.
2. Если нужно только вывести результат
begin var n:=ReadInteger; // исходное число n.ToString.Inverse.ToInteger.Println end.
3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)
begin ReadlnString.Inverse.Println end.
4. Если заданное число может быть отрицательным
begin var n:=ReadInteger; // исходное число var s:=Sign(n); // знак числа n:=Abs(n); // модуль числа n:=n.ToString.Inverse.ToInteger*s; // полученное число n.Println; // вывод результата end.
Странное задание! Если число целое и двухзначное меньше 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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку