Viết ct free pascal. Kiểu dữ liệu Text Đọc từ file 2 số nguyên m và n (m < n). Đếm có bao nhiêu số chẵn từ m đến n. Em đang cần gấp mọi người giúp em với. Cảm ơn nhiều ạ

1 câu trả lời

Var fi,fo:Text;
    m,n,i,d:Longint;
 Begin
  Assign(fi,'CAU1.inp');Reset(fi);
  Assign(fo,'CAU1.out');Rewrite(fo);
  Readln(fi,m,n);
  For i:=m to n do If i mod 2 = 0 then d:=d+1;
  Write(fo,d);
 Close(fi);Close(fo);
End.

Câu hỏi trong lớp Xem thêm