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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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