Question

Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое из исходного перестановкой его первой и последней цифр.

Answer 1

var a,bug:integer;
s,s1,s2:string;
begin;
readln(a);
str(a,s);      //переводим число в строку
s1:=s[1]; //запоминаем 1 символ
s2:=s[length(s)]; //запоминаем крайний символ
delete(s,1,1);    //удаляем 1 символ
delete(s,length(s),1);   //удаляем крайний символ
insert(s2,s,1);  //ставим сохранённый крайний символ на первое место
insert(s1,s,length(s)); //ставим сохранённый первый символ в конец
val(s,a,bug); //делаем строку числом, не забыв о возможности багов
writeln(a);
end.