Question

Определить число полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа

Answer 1

Var n,n1,m:integer;
begin
write('n = ');
readln(n);
n1:=abs(n);
m:=(n1 mod 10)*100+(n1 div 10 mod 10)*10+(n1 div 100);
if n<0 then m:=-m;
writeln('m = ',m);
end.

Пример:
n = -123
m = -321