viết phương trình dữ liệu từ tệp inp tập xác định (gồm nhiều dòng mõi dòng chứa ba số nguyên a1,a2,a3 các số cách nhau một dấu cách ). tính tổng của ba số nguyên trên một dòng và ghi kết quả ra tệp out tập xác định mỗi dòng ghi tổng của 3 số nguyên ở dòng dữ liệu vào tương ứng
uses crt
var i: longint
f,o: text
a,b,c: longint
begin
Assign(f,’tong.inp’) reset(f)
whole not eof(f) do
begin
readeln(f,a,b,c)
writein(o,a+b+c)
end
cuối dòng có chấm phẩy
uses crt;
var i: longint;
f,o: text;
a,b,c: longint;
begin
Assign(f,’tong.inp’); reset(f);
assign(o,’tong.out’); rewrite(o);
while not eof(f) do
begin
readln(f,a,b,c);
writeln(o,a+b+c);
end;
close(f); close(o);
readln
end.