|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.12.2011, 23:23 | #1 |
Форумчанин
Регистрация: 31.10.2011
Сообщений: 118
|
в чем ошибка?
program gd;
var l,m: integer; s,t:string; begin l:=0; m:=0; for i:=1 to Length(s) do if s[i] in ['0'..'9'] then Inc(l) else begin if l>m then m:=l; l:=0 end; writeln('max digital sequence length is ',m); вот задача сама 5. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. |
05.12.2011, 23:28 | #2 |
Регистрация: 10.01.2011
Сообщений: 8
|
Код:
|
05.12.2011, 23:32 | #3 |
Форумчанин
Регистрация: 31.10.2011
Сообщений: 118
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В чем ошибка? | Cannibal | Общие вопросы C/C++ | 5 | 30.10.2011 12:35 |
В чем ошибка??? | Севастьянов | Microsoft Office Excel | 3 | 17.08.2011 11:48 |
В чем ошибка? | olegnaum | Общие вопросы C/C++ | 7 | 03.02.2010 12:58 |
В чем ошибка... | Эдвин Галстук | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.10.2009 20:01 |
В чем ошибка? | Smartbass | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.05.2009 21:55 |