Question

Дано четырехзначное натуральное число A. Какое число получится, если в нем поменять местами вторую и последнюю цифры? !! (программа паскаль)

Answer 1

Var  n, a1, a2, a3, a4: integer;
begin
  repeat
    writeln('Введите четырёхзначное число:');
    readln(n);
    if (n < 1000) or (n > 9999) then writeln('Ошибка');
  until (n >= 1000) and (n <= 9999);
  a4 := n mod 10;
  a3 := n div 10 mod 10;
  a2 := n div 100 mod 10;
  a1 := n div 1000;
  n := a1 * 1000 + a4 * 100 + a3 * 10 + a2;
  writeln(n)
end.

Answer 2

Для решения данной задачи на языке программирования Pascal можно использовать следующий код:

var
  A, B, C, D, Temp: Integer;
begin
  // Вводим четырехзначное число A
  Write('Введите четырехзначное число A: ');
  Readln(A);

// Разделяем число A на отдельные цифры
  B := A div 1000;
  C := (A div 100) mod 10;
  D := (A div 10) mod 10;

// Меняем местами вторую и последнюю цифры
  Temp := C;
  C := D;
  D := Temp;

// Собираем число обратно
  A := B * 1000 + C * 100 + D * 10 + A mod 10;

// Выводим полученное число
  Writeln('Число после замены цифр: ', A);
end.

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

Например, если ввести число 1234, то программа выведет число 1243.

Примечание: Представленный код является примером решения задачи и может быть оптимизирован или изменен в зависимости от требований и особенностей среды разработки.