Е:\Класс7\Физика\Задача5.doc
Потому что в папке Физика(ну каталог, можно сказать) хранился тот самый подкаталог, в который переместили файл.
Ответ:
в реляционных БД данные представлены в форме связанных друг с другом таблиц
а pascal тут зачем? это не БД
Если цепочки две, то выводится ближайшая. Пойдет?
//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.