Question

Dau Coroana si 10p. Rapid va rog.

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);