Cho trước tập tin văn bản INPUT.INP gồm nhiều dòng (không quá 1000 dòng), mỗi dòng chứa một chuỗi ký tự (gồm các chữ cái từ ‘A’ đến ‘Z’ viết dính liền với nhau), mỗi chuỗ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 một 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à một số chẵn và k≠0).
Yêu cầu: Viết chương trình đọc tập tin INPUT.INP xử lý và tìm chuỗi duy nhất đó, ghi kết quả tìm được vào tập tin văn bản OUTPUT.OUT.
Kết quả: Tập tin OUTPUT.OUT có một dòng là chuỗi ký tự tìm được theo yêu cầu.
Ví dụ:
INPUT.INP OUTPUT.OUT
5
ABCD
EFGHIJK
TINHOCTRE
ABCD
EFGHIJK TINHOCTRE
Quảng cáo
2 câu trả lời 1314
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.
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.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
-
✎ʏᴜᴜᰔᩚ
470 điểm
-
CHỈ YÊU MÌK EM | K12 ♡ ... ? 340 điểm
-
Minh nè:))
170 điểm
-
HỌC BÁ 8B5❤️🔥💯
165 điểm
-
$$\color{orange}{꧁ ঔ ৣ ☬ ✞ ⨳₳₪™ ⨳ ✞ ☬ ঔ ৣ ꧂}$$
105 điểm
-
Nguyễn Thị Quỳnh Mai
90 điểm
-
nam anh
85 điểm
-
My Ngoc 80 điểm
-
Minh Quan
70 điểm
-
hoàng chí vỹ 65 điểm
-
đka9A1
60 điểm
-
누가 고철을 팔고 싶어할까요?️?️
60 điểm
-
Đỗ Quyên
50 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11953
-
4 năm trước11327
-
4 năm trước10001
-
4 năm trước10293
-
4 năm trước9728
