Pascal ABC Дан текстовый файл t1.txt, содержащий целые числа, не превышающие 30000. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле t1.txt и записать эту цепочку в файл t2.txt
То есть вывести на экран длину самой длинной цепочки и записать в файл эту цепочку
Можно решить как через файлы, так и не через файлы
То есть вывести на экран длину самой длинной цепочки и записать в файл эту цепочку
Можно решить как через файлы, так и не через файлы
More Questions From This User See All
Answers & Comments
//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.