Question

Решить задачу на Паскале(код записать в тетрадь): вводится трехзначное число, поменять в нем первую и третью цифры местами с помощью div и mod. ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

                                               PascalABC.NET

begin

var a := ReadInteger('Введите число от 100 до 999 = ').Clamp(100,999);

Print('Ответ:',a div 100 + a mod 10 * 100 + a mod 100 div 10 * 10);

end.