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.