[Alinca3303]

Поменять порядок следования цифр в натуральном числе N на обратный.

[Pyro]

PHP код:

function swap(s: string): string;
begin
  case length(s) of
    1: result := s;
    2: result := s[2]+s[1];
  else
    result := s[length(s)] + swap(copy(s, 2, length(s)-2)) + s[1];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := swap(Edit1.text);
end; 


[Bargest]

Код:

s:=inttostr(N);
k:=length(s);
setlength(s1,k);
for i:=1 to length(s) do
  s1[i]:=s[k-i+1];
N:=StrToInt(s1);