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

Question

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

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

Задать свой вопрос

Кира Блахина
Информатика
2019-07-20 04:48:53
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

От следующих слов образуйте существительные с суффиксами -чик, -щик, -льщик.Бакен,

лгер сзне сйлем

Прочитайте. Поставьте, где нужно, запятые. Подчеркните однородные члены предложения. Рыбаки

Выпуск какой сельскохозяйственной культуры к 1914 году был превышен почти в

ДАМ 20 БАЛЛОВ,ПОМОГИТЕ ТОЛЬКОВ каком случае в каком случае тело нельзя

У брат и сестры вместе было 360р. Брат на все свои

380м=?км10кг 800г=?кгпомогите пожалуйста

восстанови строки стихотворения С.Есенина вставив недостающие буковкы и з_лотеющая осень

один неспаренный электрон в атоме 1) C2) P3)S4) F

почему хозяйственная деятельность человека нередко приводит к гибели живых организмов?????

Евген Улесов · Answer 1 · 2019-07-20 04:56:07+3:00

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

Fakoja Gena · Answer 2 · 2019-07-20 04:54:04+3:00

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

О проекте

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

Добро пожаловать!