作业帮 > 综合 > 作业

在1-n中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数的个数,如果没有请输出0.pascal

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/13 16:27:13
在1-n中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数的个数,如果没有请输出0.pascal
在1-n中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数的个数,如果没有请输出0.pascal
var
n,i,s:longint;
begin
read(n);
s:=0;
for i:=1 to n do
if (i mod 3=2)and(i mod 5=3)and(i mod 7=2) then s:=s+1;
writeln(s);
end.