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
program ct;
uses crt;
const vao=’CH.INP’;
ra=’CH.OUT’;
var i,m,n,k,d:integer;
v,r:text;
begin clrscr;
assign(v,vao); reset(v);
assign(r,ra); rewrite(r);
readln(v,m,n,k);
for i:=m to n do
if i mod k=0 then inc(d);
writeln(r,d);
close(v);
close(r);
readln;
end.
Học tốt!
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.