Помогите с рекурсивной функцией

Question

Помогите с рекурсивной функцией

---

Comments

Turbo Pascal

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

function IsNumeric(s:string):boolean;
begin
  if s.Length=1 then Result:=s[1].IsDigit
  else Result:=s[1].IsDigit and IsNumeric(s[2:])
end;

begin
  Writeln(IsNumeric('123512442'),', ',IsNumeric('123123.002'))
end.

Результат
True, False

Comments

в Turbo Pascal будет работать?

---

действительно не написала это. моя вина

---

я понимаю, к сожалению, в школах он еще продолжает изучаться не понятно для чего