有一堆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.