有一堆100多个的零件,若三个三个数,剩二个；若五个五个数,剩三个；若七个七个数,剩五个.请你编一个程

题目

有一堆100多个的零件,若三个三个数,剩二个；若五个五个数,剩三个；若七个七个数,剩五个.请你编一个程

答案

program long;
var
i:longint;
begin
for i:=100 to 199 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then writeln(i);
end.