Viết chương trình Đọc từ tệp "DULIEU.INP" 2 số nguyên M và N (M<N) Tính tổng các số lẻ trong phạm vi từ M đến N Ghi ra kết quả tệp "KETQUA.OUT".
2 câu trả lời
var f: text;
m, n, i: integer;
t: longint;
begin
Assign(f, 'DULIEU.INP'); reset(f);
readln(f, m, n); close(f);
Assign(f, 'DULIEU.OUT'); rewrite(f);
t:=0;
for i:=m to n do
if i mod 2=1 then t:=t+i;
write(f, t);
close(f);
end.
program tong_le;
var f,g:text;
m,n,i,t:integer;
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.
