viết chương trình: đọc từ tệp "dulieu.txt" 2 số nguyên m và n (m<n) .Tính tổng các số chia hết cho 5 trong phạm vi từ Mđến N .ghi kq ra tệp "Ketqua.txt"
uses crt; var f:text; n,m,i,sum:longint; begin assign(f,'dulieu.txt');reset(f); read(f,m,n); close(f); assign(f,'Ketqua.txt');rewrite(f); for i:=m to n do if i mod 5=0 then inc(sum,i); write(f,sum); close(f); end.
program bai_giai; var f,g:text; m,n,i,t:longint; begin Assign(f,'dulieu.inp'); reset(f); Assign(g,'ketqua.out'); rewrite(g); readln(f,m,n); t:=0; for i:=m to n do if i mod 5=0 then t:=t+i; write(g,t); closE(f); close(g); end.