Share
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
Question
Lost your password? Please enter your email address. You will receive a link and will create a new password via email.
Answers ( )
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
Để tìm câu trả lời chính xác các em hãy tham khảo viết chương trình đọc dữ liệu từ tệp các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!