bài 1 đọc tệp " bai.txt" 2 số nguyên A và B ( A<B) Tính tổng các số chẵn trong phạm vi từ A đến B. Ghi kết quả ra tệp " kq.out".
1 câu trả lời
uses crt;
var f:text;
a,b,i:word;
sum:longint;
begin
assign(f,'bai.txt');reset(f);
repeat
read(f,a,b);
until a<b;
close(f);
assign(f,'kq.out');rewrite(f);
for i:=a to b do
if i mod 2=0 then inc(sum,i);
write(f,sum);
close(f);
end.
