Đề bài : đọc từ tệp 2 số nguyên m và n . M bé hơn n đếm các số lẻ trong phạm vi từ m đến n ghi kết quả ra 1 tệp khác
2 câu trả lời
program dem_le;
var f,g:text;
m,n,i,d:integer;
begin
Assign(f,'DULIEU.TXT'); reset(f);
Assign(g,'KETQUA.TXT'); rewrite(g);
readln(f,m,n);
d:=0;
for i:=m to n do
if i mod 2=0 then d:=d+1;
write(g,'Co ',d,' so le');
close(f); close(g);
end.
ĐÁP ÁN
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
