Question

Дано 4-х значное число. Вывести число, полученное перестановкой 1 и 3 цифр. Например: 4321=2341. Срочно! Программа Паскаль. Даю 98 баллов!!!

Answer 1

var

x : integer;

begin

x:=4321;

writeln (((x mod 100) div 10)*1000+((x mod 1000) div 100) *100 + ( x div 1000)*10 + x mod 10)

end.

Answer 2

Спасибо за возможность помочь! Ниже представлена программа на языке Паскаль для перестановки 1-й и 3-й цифр в 4-х значном числе:

pascalCopy code
program SwapDigits;

var
  number, temp, digit1, digit3: integer;

begin
  // Вводим 4-х значное число
  writeln('Введите 4-х значное число:');
  readln(number);

  // Проверяем, что число состоит из 4 цифр
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Ошибка: Введите 4-х значное число!');
    exit;
  end;

  // Получаем 1-ю, 2-ю, 3-ю и 4-ю цифры числа
  digit1 := number div 1000;
  temp := number mod 1000;
  digit3 := temp div 100;
  temp := temp mod 100;
  // digit2 - 2-я цифра числа
  // temp - 4-я цифра числа

  // Формируем новое число с перестановкой 1-й и 3-й цифр
  number := digit3 * 1000 + temp * 100 + digit1 * 10 + temp;

  writeln('Число после перестановки: ', number);
end.

Убедитесь, что вводимое число действительно 4-х значное, и программа выдаст число с переставленными 1-й и 3-й цифрами. Надеюсь, она вам поможет! Если у вас возникнут еще вопросы, не стесняйтесь спрашивать. Удачи!