pascal 今有物不知其数,三三数之剩二,五五数之剩三,七七数之剩二,问物几何?求最小解

program aa;
var
i,k:integer;
begin
i:=1;
k:=0;{作为开关,此时是开启状态}
while k=0 do begin {条件}
if (i mod 3=2)and(i mod 5=3)and(i mod 7=2) then k:=i;{关闭状态}
i:=i+1;
end;
write(k);{输出数目值}
end.
分析：
让k作为一个开关，同时k也是这个此物的数目，while的条件即是：如果k出现了，那么就停止。因为第一个出现的一定是最小的，所以这样就达到了目的。最终答案是23。

program exe;
var
i:integer;
begin
i:=1;
while (i mod 3<>2) or (i mod 5<>3) or (i mod 7<>2) do i:=i+1;
writeln(i);
end.

i:=0;
while (i mod 3<>2) or (i mod 5<>3) or (i mod 7<>2) do i:=i+1;
writeln(i);

Program exe;
var
sum:integer; {那个要枚举的数}
begin
sum:=1; {设置初值,从1开始数起}
while not ((sum mod 3=2) and (sum mod 5=3) and (sum mod 7=2)) do sum:=sum+1; {原本是要求出除3余2除5余3除7余2,那到了用while语句就加一个not取反就是了}
writeln(sum);
end.