Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt

@anohin · Регистрация: 27.06.2013

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

В файле data.txt записаны числа, сколько их – неизвестно.
Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt.

@Cyborg Drone · 17.07.2013, 23:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program MaxCh;
 
var d, o: text;
    i, j, k, m, s: integer;
 
begin
  assign(d, 'c:\data.txt');
  reset(d);
  assign(o, 'c:\output.txt');
  rewrite(o);
  i := 1;
  j := 1;
  readln(d, m);
  s := m;
  while not(eof(d)) do
    begin
      readln(d, k);
      if k = m
        then i := i + 1
        else
          begin
            if i > j then
              begin
                s := m;
                j := i
              end;
            m := k
          end;
    end;
  writeln(o, 'Число: ', s, ', длина цепочки: ', i);
  close(d);
  close(o)
end.

@fejago · 15.10.2017, 21:54

Если взять файл input из чисел:

10
10
-6
-2
-2
-2

то в файл данная программа выводит не верный ответ. А именно:
Число: 10, длина цепочки: 4

@Cyborg Drone · 16.10.2017, 02:28

Написано давно, и, как выяснилось, неверно.

Вот так правильно:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var f: text;
    nm, cm, n, c, t: integer;
begin
  assign(f, 'd:\input.txt');
  reset(f);
  cm := 0;
  c := 0;
  while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t)
        then inc(c)
        else c := 1;
      t := n;
      if c > cm
        then begin
          cm := c;
          nm := n
        end
    end;
  close(f);
  assign(f, 'd:\output.txt');
  rewrite(f);
  writeln(f, 'Длина цепочки: ', cm);
  if cm > 0 then write(', число: ', nm);
  close(f)
end.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@anohin 0 / 0 / 0 Регистрация: 27.06.2013 Сообщений: 15

	Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt 17.07.2013, 21:06. Показов 28905. Ответов 3 Метки нет (Все метки) В файле data.txt записаны числа, сколько их – неизвестно. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt. 0

@fejago 1 / 1 / 0 Регистрация: 23.09.2017 Сообщений: 4
	15.10.2017, 21:54
	Если взять файл input из чисел: 10 10 -6 -2 -2 -2 то в файл данная программа выводит не верный ответ. А именно: Число: 10, длина цепочки: 4 1