Viết chương trình Cho tệp 'DULIEU.TXT' chứa 2 số nguyên x, y cách nhau bởi 1 dấu cách, hãy đọc x,y từ tệp 'DULIEU.TXT', tính tổng các số chẵn trong phạm vi từ x đến ykết quả ghi vào tệp 'OUT.TXT'
2 câu trả lời
uses crt;
var x,y,i,t:integer;
fi,fo:text;
begin
clrscr;
assign(fi,'DULIEU.TXT');reset(fi);
assign(fo,'OUT.TXT');rewrite(fo);
read(fi,x);read(fi,y);
for i:=x to y do
if i mod 2 = 0 then t:=t+i;
write(fo,t);
close(fi);close(fo);
readln
end.
program bai_giai;
var f,g:text;
x,y,i,t:longint;
begin
Assign(f,'DULIEU.TXT'); reset(f);
Assign(g,'OUT.TXT'); rewrite(g);
readln(f,x,y);
t:=0;
for i:=x to y do t:=t+i;
write(g,t);
close(f); close(g);
end.
