Ответы 1

  • var k, max: integer;c1, c2: char;f: text;begin assign(f,'C:\24.txt'); reset(f); c1 := '0'; c2 := '0'; k := 1; max := 0; while not Eof(f) do begin c2 := c1; read(f, c1); if (c1 <> c2) and (c2 <> '0') then begin k := k + 1; end else begin if k > max then max := k; k := 1; end; end; if k > max then max := k; writeln(max);end.В результате работы данного алгоритма при вводе данных из файла в условии получаем ответ  — 35. Ответ: 35.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years