Регистрация
Maksim9999v
21.07.2021 11:45
Информатика
Есть ответ 👍

Сделайте очень и 2. Баллов мало, но

193
358
Посмотреть ответы 2

Ответы на вопрос:

linakirilinaa
linakirilinaa
4,8(63 оценок)

другой ответ нажимай вот так как то (10+2)0 умножить на ноль ноль и будет

pOMOGITPLZ1
pOMOGITPLZ1
4,6(81 оценок)

В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `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.

Популярно: Информатика