[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]

Код:

1 2 3 4 5 6

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