Danh Nguyễn
Hỏi từ APP VIETJACK
Cho tệp văn bản SN1.TXT trong đó mỗi dòng chứa một số nguyên, hãy viết chương trinh tạo một tep van bản SN2.TXT gồm các số nguyên le chia hết cho 5 từ tệp SN1.TXT
Quảng cáo
1 câu trả lời 209
1 năm trước
const fi1='nguyen1.txt'
fi2='nguyen2.txt'
fo='nguyen.txt'
var f1,f2,f3:text;
a,b:array[1..100]of integer;
n,m,i:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n]);
end;
m:=0;
while not eof(f2) do
begin
m:=m+1;
readln(f1,b[m]);
end;
for i:=1 to n do
writeln(f3,a[i]);
for i:=1 to m do
writeln(f3,b[i]);
close(f1);
close(f2);
close(f3);
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!