Help me😭😭😢😢😢😢😓😓😓 Viết chương trình: - Đọc từ tệp"DULIEU.INPUT" 2 số nguyên M và N ( M<N) - Đếm các số lẻ trong phạm vi từ M đến N - Ghi kết quả ra tệp "KETQUA.OUT"
2 câu trả lời
uses crt;
var f:text; n,i,m,d:longint;
begin
clrscr;
assign(f,'DULIEU.INPUT');reset(f);
readln(f,m,n);
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
for i:=m to n do if i mod 2=1 then inc(d);
writeln(d);
close(f);
end.
uses crt;
var f:text;
m,n,count,i:longint;
begin
assign(f,'DULIEU.INPUT');reset(f);
read(f,m,n);
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
for i:=m to n do
if i mod 2=1 then inc(count);
write(f,count);
close(f);
end.
