Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2017, 14:40   #1
Алексаndra
Новичок
Джуниор
 
Регистрация: 04.05.2017
Сообщений: 2
Вопрос Вывести самую длинную последовательность четных цифр в строке.

Дана строка символов, содержащая цифры.
Вывести самую длинную последовательность четных цифр в строке.
Алексаndra вне форума Ответить с цитированием
Старый 04.05.2017, 14:53   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Это кому задание - мне ?
Как говорит Якубович: "Ваш код - в студию!" А иначе - некак. Разве что Неверов...

Последний раз редактировалось digitalis; 04.05.2017 в 14:57.
digitalis вне форума Ответить с цитированием
Старый 07.05.2017, 08:09   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Разве что Неверов...
Это точно!

Код:
var s,s1:string;
    i,c,c1:integer;
begin
   Write('s = '); Readln(s);
   c:=0;
   c1:=0;
   s1:='';
   For i:=1 to Length(s) do
      If Pos(s[i],'02468')>0 then
         c1:=c1+1 else
      begin
         If c<c1 then
         begin
            c:=c1;
            s1:=Copy(s,i-c,c);
         end;
         c1:=0;
      end;
   Writeln('s1 = ',s1);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а. Akerman Помощь студентам 5 17.10.2016 13:46
Найти самую длинную группу цифр (двумерный массив) fr0st1k123 Общие вопросы C/C++ 1 11.03.2016 19:56
Найти в массиве самую длинную убывающую последовательность... fr0st1k123 Общие вопросы C/C++ 1 19.10.2015 20:34
Обнулить самую длинную последовательность возрастающих чисел Zevsnet Паскаль, Turbo Pascal, PascalABC.NET 0 30.09.2010 10:20