Question

Вводится последовательность натуральных чисел. Признак конца ввода - ноль. Необходимо проанализировать подпоследовательности из подряд идущих чисел «`2`» и вывести количество чисел в самой длинной из них. Паскаль ЗФТШ

Answer 1

В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `2`, то увеличиваем счётчик количества, если же нет, то это означает, что подпоследовательность закончилась, и надо проверять, не превзошли ли мы максимум, а потом текущий счётчик сбрасывать в `0`. И ещё нужно сделать такую проверку после цикла, поскольку последовательность может закончиться на `2`.

var a,k,max:integer;

     begin

      max:=0;

      k:=0;

      read(a);

      while a <> 0 do begin

       if a = 2

       then k := k + 1

  else begin

   if k > max then max := k;

   k := 0

  end;

 read(a);

 end;

 if k > max then max := k;

 writeln(max)

     end.

Answer 2

Для решения этой задачи, вы можете использовать следующий алгоритм на языке Pascal:

pascalCopy code
program LongestSequence;
var
  num, prevNum, maxLength, currentLength: integer;
begin
  maxLength := 0;
  currentLength := 0;
  
  repeat
    read(num);
    
    if (num = 2) then
    begin
      currentLength := currentLength + 1;
      if (currentLength > maxLength) then
        maxLength := currentLength;
    end
    else
      currentLength := 0;
      
  until (num = 0);

  writeln('The length of the longest sequence of consecutive 2s is: ', maxLength);
end.

Алгоритм принимает последовательность чисел, вводимых пользователем, и проверяет, сколько подряд идущих чисел "2" в ней. Когда вводится не число "2", длина текущей последовательности обнуляется, и программа продолжает считывать последующие числа. Когда вводится "0", цикл завершается, и программа выводит длину самой длинной последовательности чисел "2".