Viết chương trình đọc dữ liệu từ tệp Lop.TXT Tính tổng theo dòng và ghi kết quả ra tệp KQ.TXT
2 câu trả lời
var a,b:text;
s:integer;
begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readl
chúc bạn hok tốt
program bai_giai;
var f,g:text;
n,t:longint;
begin
Assign(f,'Lop.TXT'); reset(f);
Assign(g,'KQ.TXT'); rewrite(g);
while not eof(f) do
begin
t:=0;
while not eoln(f) do
begin
read(f,n);
t:=t+n;
end;
writeln(g,t);
readln(f);
end;
close(f); close(g);
end.
Câu hỏi trong lớp
Xem thêm
