помогите срочно с нформатикой, плиз: написать процедуру,которая получает целочисленные...

Question

помогите срочно с нформатикой, плиз: написать процедуру,которая получает целочисленные переменные и разворачивает её цифры в обратном порядке.

Answer 1

procedure Reverse (var a:integer);

var

  r:integer;

begin

  r := 0;

  while a <> 0 do

  begin

    r := r * 10 + a mod 10;

    a := a div 10;

  end;

  a := r;

end;

 

 

//функция

function Reverse (a:integer):integer;

var

  r:integer;

begin

  r := 0;

  while a <> 0 do

  begin

    r := r * 10 + a mod 10;

    a := a div 10;

  end;

  Reverse := r;

end;