Если цепочки две, то выводится ближайшая. Пойдет?

//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t) then
        c := c + 1
      else
        c := 1;
      t := n;
      if c > Counts then
      begin
          Counts := c;
          numValue := n
      end
    end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
    writeln(f, numValue);
close(f)
end.

0 0

4 года назад

Информационный объем сообщения в 16-битной кодировке равен 34байт. Это сообщение перекодировали в 8-битную кодировку, а затем пр

nikyla111

2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0 0

4 года назад

Какой результат исполнения алгоритма соответствует вводимым значениям переменных: а = 18, b = 26, c = 10? В ответ запишите число

tboy4encko

Поскольку алгоритма нет, имею право ввести свой:)
procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;

var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
end.

В ответе будет
а = 10
b = 18
с = 26 =)

0 0

2 года назад