Naeel Maqsudov » 17 июн 2004, 07:26
К сожалению, Вы не указали тип данных в котором надо решить задачу. Предположу, что это число, записанное в строке, тогда решение будет следующим:
Код: Выделить всё
function reflect(X:string):string;
begin
if X='' then reflect:=X else reflect:=reflect(copy(X,2,maxint))+X[1];
end;
PS
Тема переезжает из Delphi/Pascal на более подходящую доску
К сожалению, Вы не указали тип данных в котором надо решить задачу. Предположу, что это число, записанное в строке, тогда решение будет следующим:
[code]
function reflect(X:string):string;
begin
if X='' then reflect:=X else reflect:=reflect(copy(X,2,maxint))+X[1];
end;
[/code]
PS
Тема переезжает из Delphi/Pascal на более подходящую доску