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

1
Добрый вечер!
Число вводится с клавиатуры?
да-да
Всё окей?
спасибо за решение, завтра проверю, ибо сейчас какая-то неурядица с компом. благодарности в любом случае!
Пожалуйста.

Ответы и объяснения

  • SkyBy
  • главный мозг
2013-12-21T20:22:59+00:00
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.