1 / 1 / 0
Регистрация: 04.04.2019
Сообщений: 12
1

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

05.04.2019, 12:51. Показов 4256. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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.
Перевести на python
Найти длину самой длинной цепочки одинаковых чисел, идущих подряд, и записать её в файл output.txt
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2019, 12:51
Ответы с готовыми решениями:

Напишите программу которая определяет длину самой длинной цепочки идущих подряд одинаковых чисел
В файле в столбик записаны целые числа, сколько их - неизвестно. Напишите программу которая...

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

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

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

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

2
1303 / 843 / 409
Регистрация: 12.03.2018
Сообщений: 2,305
05.04.2019, 15:22 2
Файлы добавьте.
Python
1
2
3
4
5
6
7
import re
 
inpt = "111223441111222222222222111"
 
lst = re.findall(r'1+|2+|3+|4+|5+|6+|7+|8+|9+|0+', inpt)
 
print(len(max(lst, key=len)))
0
Просто Лис
Эксперт Python
5808 / 3593 / 1071
Регистрация: 17.05.2012
Сообщений: 10,527
Записей в блоге: 9
07.04.2019, 18:20 3
Python
1
2
3
4
inpt = "111223441111222222222222111"
ls = re.findall(r'((\d)\2*)', inpt)
print(ls)
# [('111', '1'), ('22', '2'), ('3', '3'), ('44', '4'), ('1111', '1'), ('222222222222', '2'), ('111', '1')]
0
07.04.2019, 18:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2019, 18:20
Помогаю со студенческими работами здесь

Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле
2)Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле input1.txt . Количество...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел и вывести результат в другой файл
В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел
В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая ...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел
в файле в столбик записаны целые числа, сколько их-неизвестно. Напишите программу, которая...

Определить длину самой длинной цепочки идущих подряд одинаковых чисел
В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru