Напишите программку,которая переставляет первую и заключительную цифры, введённого

А число любое? У нас для четырехзначных такая задачка была просто, могу ее написать...

А число хоть какое? У нас для четырехзначных такая задачка была просто, могу ее написать...

ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:

var x: integer; 
begin 
writeln ('Введите четырехзначное число.'); 
read (x); 
x:=x mod 10 * 1000 + x div 100 mod 10 * 100 + x div 10 mod 10 * 10 + x div 1000; 
writeln ('Число после перестановки цифр:',x); 
end.



ДЛЯ Всех ЧИСЕЛ:

program znanija;
var n,m,c1,cp:integer;   
k,i:byte;
begin
write('Введите число.');
readln(n);к примеру 12345
cp:=n mod 10;заключительная цифра=5
n:=n div 10;число без заключительней числа=1234
m:=n;запомним его
k:=0;
while mgt;9 doпока не останется 1 цифра 
begin 
m:=m div 10;1-ая цифра=1 
k:=k+1;количество разрядов без первого=4 
end;
c1:=m;запомним первую цифру=1
for i:=1 to k do 
begin 
m:=m*10;повышаем разряд числа, равного первой цифре=1000 
cp:=cp*10;повышаем разряд заключительней числа=5000 
end;
n:=(n-m)*10+c1+cp*10;получаем число=(1234-1000)*10+1+5000*10=52341
writeln('Число после перестановки цифр:',n);
end.