viết chương trình đọc tệp " du lieu Inp" 2 số nguyen M,N (M<N) tính tổng các số lẻ trong phạm vi từ M đến N ghi kết quả ra tệp "ket qua. out"
2 câu trả lời
Program ct;
Uses crt;
Var i,M, N :integer;
S:longint;
Begin clrscr;
Write('nhap 2 so M,N:');
Readln(M,N);
S:=0;
For i:=M to N do
If i mod 2=0 then S:=S+i;
Writeln('nhap cac so:', S);
Readln;
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 2=1 then t:=t+i;
write(g,t);
closE(f); close(g);
end.
