Предмет: Информатика, автор: Gilrs

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

Ответы

Автор ответа: emblerik
0

var

  a : integer;

begin

  read (a);

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

  write (a);

end.

Интересные вопросы
Предмет: Математика, автор: bsgshsgsg
Предмет: Алгебра, автор: kakbi53