pascal 整除输出

来源：百度知道 编辑：UC知道 时间：2024/06/03 19:37:06
编写程序，求1-1000之间满足“除2余1，除3余2，除5余3”的数，一行输出5个数，一行的数字之间以空格分隔。
（用pascal做！在线等快！）

var
i,t:integer;

begin
t:=0;
for i:=1 to 1000 do
if (i mod 2 =1)and(i mod 3=2)and(i mod 5=3) then
begin
inc(t);
write(i,' ');
if t mod 5 =0 then
writeln;
end;
end.

也可以用：

var
t,tt:integer;

begin
t:=1;
while t<1000 do
if (t mod 2=1)and(t mod 3=2)and(t mod 5=3) then
break;
tt:=0;
while t<1000 do
begin
inc(tt);
write(t,' ');
inc(t,30);
if tt mod 5 =0 then
writeln;
end;
end.

这边没有FP。。。记事本打的，有错误不要怪我。。。