program, a_1;
var n,i:integer;
begin
write("n="); readln(n);
while (n<>0) do
inv:=inv*10 + n mod 10;
n:=n div 10;
write(inv , '_');
readln
end.
// Algoritmul determină inversul unui număr prin extragerea pe
rând a fiecărei cifre a unui număr (începând cu cifra unităţilor)
şi compunerea unui nou număr în care aceasta devine cifra
cea mai semnificativă
.
Bafta!
