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

Question

Питирим

27 октября, 21:27

+5

Ответы (1)

Знаете ответ на вопрос?

Ната · Answer 1

var

a : integer;

begin

read (a) ;

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

write (a) ;

end.