рекурсия, Определить число, получаемое выписыванием в обратном порядке цифр зада Опции

[marwell]

Определить число, получаемое выписыванием в обратном порядке цифр заданного натурального числа (использовать рекурсивную функцию). Ничего не приходит в голову Кто-нибудь, дайте пожалуйста направление(код постараюсь написать сам)

[volvo]

скорей всего можно и по другому.

Можно конечно... Заметь, без побочных эффектов. Старайся вообще обходиться без них. А уж об использовании глобальных переменных я вообще не хочу вспоминать

function r(x: longint): longint;
const b: longint = 0;
begin
  if x = 0 then begin
    r := 0; b := 1;
  end
  else begin
    r := r(x div 10) + b * (x mod 10); b := 10 * b;
  end;
end;

begin
  writeln(r(12345));
end.

[marwell]

Можно конечно... Заметь, без побочных эффектов. Старайся вообще обходиться без них. А уж об использовании глобальных переменных я вообще не хочу вспоминать

function r(x: longint): longint;
const b: longint = 0;
begin
  if x = 0 then begin
    r := 0; b := 1;
  end
  else begin
    r := r(x div 10) + b * (x mod 10); b := 10 * b;
  end;
end;

begin
  writeln(r(12345));
end.

 const b: longint = 0;
begin
  if x = 0 then begin
    r := 0; b := 1; 

а разве можно константе b=0 присвоить значение b:=1?