Рекурсивные функции на Pascal

[Мария]

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

[Naeel Maqsudov]

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

Код: Выделить всё

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

PS
Тема переезжает из Delphi/Pascal на более подходящую доску

[Hawk]

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