SaveText.Ru

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

Share with your friends:

Print