Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу. (pascal)
P.S Надо использовать цикл while, но я не могу понять каким образом.
Ответ
Автор - Stepan2078
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))
Ответ
Проверено экспертом
Автор - preceptor
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.