Cho hai số nguyên dương m,n và số nguyên k.
Yêu cầu: Đếm xem có bao nhiêu số tự nhiên trong đoạn [m, n] chia hết cho k.
Dữ liệu vào: Từ file văn bản “CH.INP” gồm 3 số m,n,k mỗi số cách nhau một dấu cách trống (1 < m < n <104; |k|<=104).
Kết quả: Ghi ra file văn bản ‘CH.OUT’ số lượng các số tự nhiên chia hết cho k.
VD:
CH.INP CH.OUT
9 15 -3 3
uses crt; var m,n,k,i,d : integer; begin clrscr; d:=0; assign(input,'CH.INP'); assign(output,'CH.OUT'); reset(input); rewrite(output); read(input,m,n,k); for i:=m to n do if (i mod k = 0 ) then d:=d+1; write(output,d); close(input); close(output); readln end.