Дано четырёхзначное число. Получить число, образуемое при перестановке двух первых и двух последних цифр заданного числа. Например, из числа 4567 получить 6745. Мне нужна программа в Pascal!!!!!!!

1

Ответы и объяснения

2013-02-04T20:18:02+04:00

var

  a : integer;

begin

  read (a);

  a := a div 100 + (a mod 100) * 100;

  write (a);

end.