中科新闻网怎么破解直播的马赛克:Pascal循环程序求助，急！！！
来源：百度文库 编辑：中科新闻网 时间：2024/05/04 19:25:19
帮忙写下这几题，明天要交，速度！！答的好的加分，谢谢了！！
1.在1-1000中，找到能同时满足用3除余2，用5除余3，用7除余2的所有整数。
2.找出1-999中能被5整除且至少有一位数字是5的所有整数。
3.输入两整数，求出其最大公约数。
4.找出1-1000中所有的素数，以每行打印5个的格式打印出来。
回答请写清题号，后面还有4题。谢谢
1.在1-1000中，找到能同时满足用3除余2，用5除余3，用7除余2的所有整数。
2.找出1-999中能被5整除且至少有一位数字是5的所有整数。
3.输入两整数，求出其最大公约数。
4.找出1-1000中所有的素数，以每行打印5个的格式打印出来。
回答请写清题号，后面还有4题。谢谢
第一道:
program daf;
var a,b,c:integer;
begin
for a:=1 to 1000 do
if (a mod 3=2) and (a mod 5=3) and (a mod 7=2) then writeln(a:2);
end.
第二道:
program dafdf;
var a,b,c:integer;
begin
for a:=1 to 999 do
if (a mod 5=0) then
if (a div 100=5) or (a div 10=5) or (a div 1=5) then write(a:5);
end.
有事．．．其余的以后说了．．．．