Наибольшее число подряд идущих элементов

@IceLemon · Регистрация: 27.02.2017

Author24 — интернет-сервис помощи студентам

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

@Puporev · 12.03.2017, 20:20

Pascal

var a,b,k,mx:integer;
begin
writeln('Вводите целые числа, в том числе одинаковые подряд, окончание ввода 0');
k:=1;
mx:=0;
repeat
write('Введите первое число, не равное 0 a=');
readln(a);
until a<>0;
repeat
readln(b);
if b=a then inc(k)
else
 begin
  if k>mx then mx:=k;
  k:=1;
 end;
a:=b;
until b=0;
write('Максимальное число одинаковых подряд=',mx)
end.

@IceLemon 0 / 0 / 0 Регистрация: 27.02.2017 Сообщений: 29
		1
	Наибольшее число подряд идущих элементов 12.03.2017, 19:26. Показов 2997. Ответов 1 Метки нет (Все метки) Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу. В этой задаче нельзя использовать массивы! 0

	12.03.2017, 20:20

Опции темы

Наибольшее число подряд идущих элементов

Решение