n:=0;
reset(f);reset(g);
eq:=true;
while not eof(f) and not eof(g) and eq do
begin
inc(n);
read(f,a);read(f,b);
eq:=eq and (a=b);
end;
if eq and eof(f) and eof(g) then
writeln('Равны')
else
writeln('n=',n);
символьные файлы
даны символьные файлы f и g. определить совпалают ли компоненты файла f с компонентами файла g.если нет,то получить номер первой компоненты, в которой файлы f и g отличаются между собой.в случае, когда один файл имеет компонент (n>=0) и повторяет начало другого (более длинного) файла ответом должен быть число n+1.
а вы могли бы пояснить,что такое eq?я просто не очень поняла...
ой,все...поняла)спасибо))