Question

помогите пожалуйста решить через паскаль. дано четырёхзначное число. найти число, образованное перестановкойпервойи второй, третьей и четвёртой цифр заданного числа. Например, из числа 5434 получить 4543,из числа 7048,--784​

Answer 1

Ответ:

​program example;

var

 num, a, b, c, d, result: integer;

begin

 writeln('Введите четырехзначное число:');

 readln(num);

 a := num div 1000;

 b := (num div 100) mod 10;

 c := (num div 10) mod 10;

 d := num mod 10;

 result := d * 1000 + c * 100 + b * 10 + a;

 writeln('Полученное число: ', result);

end.

Объяснение:

Answer 2

Конечно, я могу помочь вам решить эту задачу с использованием языка Pascal. Вот пример кода, который решает данную задачу:

pascalCopy code
program Permutation;

var
  number, permutation: Integer;
  digit1, digit2, digit3, digit4: Integer;

begin
  // Введите четырёхзначное число
  Write('Введите четырёхзначное число: ');
  ReadLn(number);

  // Получение цифр из заданного числа
  digit1 := number div 1000;    // Первая цифра
  digit2 := (number div 100) mod 10;    // Вторая цифра
  digit3 := (number div 10) mod 10;     // Третья цифра
  digit4 := number mod 10;              // Четвёртая цифра

  // Формирование числа с переставленными цифрами
  permutation := digit2 * 1000 + digit3 * 100 + digit4 * 10 + digit1;

  // Вывод результата
  WriteLn('Число, образованное перестановкой цифр: ', permutation);

  ReadLn;
end.

Вы можете вставить этот код в среду разработки Pascal и выполнить его, чтобы найти число, образованное перестановкой первой, второй, третьей и четвёртой цифр заданного числа. Программа попросит вас ввести четырёхзначное число, а затем выведет результат.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.