Дано четырёхзначное число. Получить число, образуемое при перестановке двух первых и двух последних цифр заданного числа. Например, из числа 4567 получить 6745. Мне нужна программа в Pascal!!!!!!!
var
a : integer;
begin
read (a);
a := a div 100 + (a mod 100) * 100;
write (a);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a : integer;
begin
read (a);
a := a div 100 + (a mod 100) * 100;
write (a);
end.