作业帮 > 综合 > 作业

pascal:找出n之后(注意:包含n本身)前x个奇异数.所谓奇异数是指这个数*3+4后能被5整除.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/23 19:48:14
pascal:找出n之后(注意:包含n本身)前x个奇异数.所谓奇异数是指这个数*3+4后能被5整除.
var n,x,count,i:longint;begin readln(n,x); i:=n; count:=0; repeat inc(i); if (i*3+4) mod 5 = 0 then write(i,' '); inc(count); until count > x; readln;readln;end.为什么错了呢?
pascal:找出n之后(注意:包含n本身)前x个奇异数.所谓奇异数是指这个数*3+4后能被5整除.
正确答案:
var n,x,count,i:longint;
begin
readln(n,x);
i:=n;
count:=0;
repeat
if (i*3+4) mod 5 = 0 then write(i,' ');
inc(count);
inc(i);
until count>=x;
end.