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"
2 câu trả lời
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.
