Помощь - Поиск - Пользователи - Календарь
Полная версия: Символы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
B&M
Дан текст, найти найбольшее количество цифр, которые идут подряд
Lapp
m:=0;
n:=0;
for i:=1 to Length(s) do if ('0'<=s[i]) and (s[i]<='9') then begin
Inc(n);
if n>m then m:=n
end
else n:=0;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.