Developing.ru

Как я понимаю эта тема была в паскале? Так бы и написали, что от туда а то сейчас не понитяно на каком языке требуется написать.

function reflect(X:string):string;
begin
  if X='' then reflect:=X else reflect:=reflect(copy(X,2,maxint))+X[1];
end;

К сожалению, Вы не указали тип данных в котором надо решить задачу. Предположу, что это число, записанное в строке, тогда решение будет следующим:

[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 на более подходящую доску

Помогите, пожалуйста, написать рекурсивную функцию для создания "перевертыша" числа, т.е. из 1234 получается 4321.
Буду прихзнательна.
:!: :!: :?