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