поменять местами первую и последнюю цифры числа. Паскаль

Question

поменять местами первую и последнюю цифры числа. Паскаль

Роман Черненко Ученик (153), закрыт 11 лет назад

Answer 1

Кубраковское решение, конечно, будет работать, но по головке за такое не погладят. Вот, для сравнения:

readln(n);
d:=1;
for j:=1 to trunc(ln(n)/ln(10)) do
d:=d*10;
LastDigit:=n mod 10;
FirstDigit:=n div d;
MiddlePart:=n mod d div 10;
n:=LastDigit*d+MiddlePart*10+FirstDigit;
writeln(n);
readln;

Answer 2

uses crt;
var s:string;
q,z,a:integer;c:char;
begin clrscr;
readln(a);
str(a,s);
q:=length(s);
c:=s[q];
s[q]:=s[1];
s[1]:=c;
val(s,a,z);
writeln(a);
readln
end.