Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое...

Question

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

Answer 1

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.

Answer 2

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))

Comments

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