Cho trước tập tin văn bản ONLY.INP gồm nhiều dòng (không quá 1000 dòng), mỗi dòng chứa 1 chuỗi kid tự(gồm các chữ cái in hoa từ ‘A’ đến ‘Z’ viết dính liền với nhau), mỗi chỗi dài không quá 255 ký tự. Trong tập tin này có duy nhất một chuỗi xuất hiện đúng 1 lần, các chuỗi còn lại đều xuất hiện đúng k lần( số k không cho trước nhưng biết rằng k là số chẵn và k khác 0)
Yêu cầu: Tìm chuỗi duy nhất đó
Dữ liệu vào:từ tệp văn bản ONLY.INP gồm nhiều dòng, mỗi dòng là một chuỗi ký tự như miêu tả.
Dữ liệu ra:ghi vào tệp văn bản ONLY.OUT gồm mỗi dòng là chuỗi ký tự tìm được theo yêu cầu.
Đang cần gấp ạ, cảm ơn
uses crt;
var f:text; m:string; i,j,n,d:longint;
s:array[1..1000000]of string;
begin
clrscr;
assign(f,’ONLY.INP’);reset(f);
while not(eof(f)) do
begin
inc(n); readln(f,s[n]);
end;
close(f);
assign(f,’ONLY.OUT’);rewrite(f);
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
if s[i]=s[j] then inc(d);
if d=1 then m:=s[i];
end;
writeln(f,m);
close(f);
end.