Напишите на языке Паскаль программу, которая для произвольного двухзначного числа определяет число, образованное перестановкой цифр исходного числа.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
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.