Перевести на python

@bezrykii · Регистрация: 04.04.2019

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

Pascal

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

	05.04.2019, 12:49

Опции темы