Напишите на языке паскаль программу, которая для произвольного двухзначного числа определяет число, образованное перестановкой цифр исходного числа.

gosharybchinckyi gosharybchinckyi    2   25.09.2019 06:10    0

Ответы
yuakomlev yuakomlev  08.10.2020 17:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Ангелочек319 Ангелочек319  08.10.2020 17:37
Вариант 1. Обработка числа.
program z;
var x,y:integer;
begin
readln(x);
y:=(x mod 10)*10+x div 10;
writeln(y);
end.

Вариант 2. Обработка числа как строки.
program z;
var str:string;
begin
readln(str);
writeln(str[2]+str[1]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика