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’
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’
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.