作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 08:48:45
在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.