Question

De alcatuit un program Pascal care citeste de la tastatura un numar de 3 cifre si afiseaza la ecran inversul numarului (exemplu : 789- 987)

Answer 1

Program InversareCifre;
var n,inv,rez:integer;
function invers(nr,nrinv:integer):integer;
var i:integer;
begin
nrinv:=0;
repeat
nrinv:=nrinv*10+(nr mod 10);
nr:=nr div 10;
until nr=0;
invers:=nrinv;
end;
begin
Writeln('Numarul este:');readln(n);
rez:=invers(n,inv);
Writeln('Inversul este:',rez);
end.