cho tệp DL.INP chứa các số nguyên liên tiếp.Mỗi số cách nhau 1 dấu cách , tệp không kết thúc bằng kí tự xuống dòng. Hãy cho biết tệp có bao nhiêu số nguyên. Tính tổng các số nguyên trong tệp
program bai_giai; uses crt; var f:text; n,d,t:longint; begin clrscr; Assign(f,'DL.INP'); reset(f); d:=0; t:=0; while not eof(f) do begin read(f,n); d:=d+1; t:=t+n; end; writeln('Co ',d,' so'); writeln('Tong cac so la: ',t); readln; close(f); end.
var f:text; a,t,d:longint; begin assign(f,'DL.INP');reset(f); d:=0;t:=0; while not eof(f) do begin read(f,a); inc(d);inc(t,a); end; writeln(d,#13#10,t); close(f); end.