用free pascal做有一个自然数被3,4,5除都余1,被7除余2,此数最小是几?

用free pascal做有一个自然数被3,4,5除都余1,被7除余2,此数最小是几?
gf
雅姿女人009 1年前 已收到4个回答 举报

偶玉米的8行 幼苗

共回答了18个问题采纳率：72.2% 举报

program a;
var
i:integer;
begin
for i:=1 to 10000
begin
if (i mod 3=1) and (i mod 4=1) and (i mod 5=1) and (i mod 7=2) then begin
wrtie(i);
break;
end;
end;
end.

1年前

2

水馨儿l 幼苗

共回答了13个问题采纳率：76.9% 举报

程序是：

***********************

program zrs;

var i:integer;

begin

For i:=1 to 32767 do

If (i mod 3=1)and(i mod 4=1)and(i mod 5=1)and(i mod 7=2) then

begin

writeln('ZI RAN SHU : ',i);

break;

end;

end.

************************

输出：

ZI RAN SHU : 121

**************************

所以答案是121.

1年前

2

默默_ 幼苗

共回答了22个问题采纳率：90.9% 举报

pascal很神奇的语言……
C的话可以帮你写写刊
用vbscript写出来的
答案是121

1年前

1

wenglimin 幼苗

共回答了14个问题采纳率：78.6% 举报

我的这个不错~~不用for循环撒，用while和repeat不错，因为在不知道循环次数的情况下最好不用for，用while和repeat就可以了。
program xyc;
var
i,j:integer;
begin
repeat
inc(i);
j:=i*7+2;
until (j mod 3=1)an...

1年前

1
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 20 q. 0.029 s. - webmaster@yulucn.com