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

Question

Информатика

Малания

30 мая, 20:05

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

+4

Ответы (1)

Знаете ответ?

Риммична · 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