Помогите с рекурсивной функцией
Помогите с рекурсивной функцией
Задать свой вопрос
Владик Каленкевич
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
// Внимание! Если программка не работает, обновите версию!
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
я разумею, к раскаянью, в школах он еще продолжает изучаться не понятно для чего
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов