Нужно составить прогу Замена первого числа на последнее

[Bayram_662]

Т.е нужно чтобы первое число стал последним ,а последнее первым н/p 12345=> 52341

[Stilet]

Переводи число в строку процедурой STR и работай со строкой как с массивом, переставляя (или просто считывая) с конца массива.

[cyberandom]

var
 s: string;
 help: char;
begin
 read(s);
 help:= s[1];
 s[1]:= s[length(s)];
 s[length(s)]:= help;
end.

Попробуй так

[CodeExpert]

Можно было еще конечно поизвращаться, тупо делить на 10 и мутить с остатком, дальше превращая в конечный вид также умножением на 10, но это лишь как вариант решения, хоть и не оптимальный..

[ОДИНОЧЕСТВО В СЕТИ]

var x,y:integer;
begin
readln(x);
y:=0;
While x<>0 do begin
y:=y*10+x mod 10;
x:=x div 10;
end;
writeln(y);
readkey;
end.