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