Задача: Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу (подсчитать одинаковые числа).
Вводимые числа: 1,7,7,9,1,0. В ответе должно быть число: 2
(писать на паскале)
Медуха
3
12.04.2020 19:52
32
Другие вопросы по теме Информатика
loko177
07.04.2020 11:02
анна2170
07.04.2020 11:01
hayatuzun00
07.04.2020 11:01
Loliss
07.04.2020 11:00
ilonarudneva14Sofass
07.04.2020 11:00
olgamorozkina19
07.04.2020 10:59
нурбол5
28.08.2019 16:30
hophip2
11.12.2019 20:57
ruan
11.12.2019 20:58
ramazan2001xxx
25.12.2020 09:06
Популярные вопросы
- Определить какая масса угля необходима для получения 80448кдж тепла...
3 - Скорость удаления двух машин равна 170км/ч.с какими скоростями...
1 - Как вы общаетесь в школе ? вы называете друг друга по имени или...
1 - Что такое глаголы? на какие вопросы отвечают ?...
3 - Охарактеризуйте чёрные страницы фашистской оккупации крыма кратко...
2 - Коренное население латинской америки – это: креолы; метисы; индейцы....
2 - Отрезки ав и сd пересекаются в точке о, являющейся серединой каждого...
1 - Ввыпуклом четырёхугольнике abcd диагонали ac и bd пересекаются...
1 - Исследуйте функцию и постройте график y=x²+1/x-1...
2 - Мне с музыкой: какие жанровые разновидности кюев вы знаете?...
3
program skoka_odinakovih;
var x,y,k,k1:integer;
begin
writeln('Введите числа. Конец ввода 0 》');
read(y);
k:=1;
k1:=1;
repeat
read(x);
if x=y then
inc(k)
else
begin
y:=x;
if(k>k1) then
k1:=k;
k:=1
end
until x=0;
write(k1)
end.