Question

dau coroana si 20 puncte primului raspuns.

Answer 1

Răspuns:

procedure test(a: integer; var b: integer);

begin

 b:=0;

 while a<>0 do

     begin

          b:=b*10 + a mod 10;

          a:=a div 10;

     end;

end;

Explicație:

apelul se face in programul principal astfel:

test(numar,inversat);

writeln('Numarul ',numar,' inversat este : ',inversat);