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

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

Задать свой вопрос
Владик Каленкевич
Turbo Pascal
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
Pasha Krivskij
в Turbo Pascal будет работать?
Сергей Шишанков
вправду не написала это. моя вина
Jana Dolgih
я разумею, к раскаянью, в школах он еще продолжает изучаться не понятно для чего
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт