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

Question

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

Comments

Добрый вечер!Число вводится с клавиатуры?

---

да-да

---

Всё окей?

---

спасибо за решение, завтра проверю, ибо сейчас какая-то неурядица с компом. благодарности в любом случае!

---

Пожалуйста.

Answer 1

Var k: integer; s,j: string;
begin
write ('Введите число: '); read (s);
k:=length(s);
str(s,j);
writeln ('Результат: ',j[k],copy(s,2,k-2),j[1]);
end.