Дано натуральное число n. переставить первую и последнюю цифру числа n. пример: n:=123456 s=623451

program zz1;

var

n, n1, m, k: integer;

begin

read (n); / /вводим исходное число

m : = n mod 10; / /получаем последнюю цифру числа

n1 : = n; / /запоминаем исходное число

while n > 9 do

begin

n : = n div 10; / /получаем первую цифру числа

end;

n1 : = (n1 div 10) * 10 + n; / /ставим первую цифру на место последней

while n1 0 do / /переворачиваем число

begin

n : = n1 mod 10;

k : = k * 10 + n;

n1 : = n1 div 10;

end;

k : = (k div 10) * 10 + m; / /ставим последнюю цифру на место первой

while k 0 do / /переворачиваем число

begin

n : = k mod 10;

n1 : = n1 * 10 + n;

k : = k div 10;

end;

write (n1); / /выводим ответ

end.