tệp in.txt lưu trữ 3 số nguyên trên 3 dòng viết câu lệnh đọc dữ liệu từ tệp in.txt và câu lệnh ghi vào tệp out.txt tổng 3 số đó
2 câu trả lời
VAR F:TEXT;
A,B,C:QWORD;
BEGIN
ASSIGN(F,'IN.TXT');RESET(F);
READLN(A); READLN(B); READLN(C);
CLOSE(F);
ASSIGN(F,'OUT.TXT');REWRITE(F);
WRITELN(A,' ',B,' ',C,' ');
CLOSE(F);
END.
program bai_giai;
var f,g:text;
a,b,c:longint;
begin
Assign(f,'in.txt'); reset(f);
Assign(g,'out.txt'); rewrite(g);
readln(f,a);
readln(f,b);
readln(f,c);
write(g,a+b+c);
close(f); close(g);
end.
