Question

Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу. (pascal)
P.S Надо использовать цикл while, но я не могу понять каким образом.

Answer 1

python

import sys
import math
import random
a = input("Введите целые числа через пробел: ").split(" ") #schitalia = [int(x) for x in a][:-1] # pereveli k tselomy tipu
count = 1
now = 1
for i in range(1, len(a)):
    if a[i] == a[i-1]: now += 1
    else:
        count = max(count, now)
        now = 1
print('Максимум подряд идут {0} одинаковых чисел.'.format(count))

Answer 2

А в Pascale, ибо питон мне не знаком

Answer 3

var a, p, c, max: integer;
begin
  a := -1;
  p := 0;
  c := 0;
  max := 1;
  while a <> 0 do
  begin
    read(a);
    if a <> p then
    begin
      if c > max then max := c;
      c := 0;
    end;
    p := a;
    c := c + 1;
      end;
  write(max);
end.