Вывести самую длинную последовательность четных цифр в строке

@Alexanddr · Регистрация: 28.02.2016

Студворк — интернет-сервис помощи студентам

Дана строка символов, содержащая цифры.
Вывести самую длинную последовательность четных цифр в строке.

@ZX Spectrum-128 · 04.05.2017, 18:23

Взято отсюда:

Найти наибольшую последовательность цифр в заданной символьной строке

Pascal

uses crt;
const
  cf = ['2', '4', '6', '8'];
 
var
  s: string;
  i, k, n, mx, nmx, kmx: byte;
 
begin
  clrscr;
  write('Строка:  ');
  readln(s);
  s := s + ' ';
  mx := 0;nmx := 1;
  i := 1;
  while i <= length(s) do
    if s[i] in cf then
    begin
      n := i;k := 1;
      while s[n + k] in cf do
        k := k + 1;
      if k > mx then
      begin
        mx := k;
        nmx := n;
      end;
      i := i + k + 1;
    end
    else i := i + 1;
  writeln('Самая длинная цепочка цифр ', copy(s, nmx, mx));
  write('Ее длина=', mx);
end.

@Alexanddr 1 / 1 / 0 Регистрация: 28.02.2016 Сообщений: 9
		1
	Вывести самую длинную последовательность четных цифр в строке 04.05.2017, 14:06. Показов 2057. Ответов 1 Метки нет (Все метки) Дана строка символов, содержащая цифры. Вывести самую длинную последовательность четных цифр в строке. 0

	04.05.2017, 18:23

Опции темы

Вывести самую длинную последовательность четных цифр в строке

Решение