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 coun
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 00:01:29
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 coun
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 inc(i); if (i*3+4) mod 5 = 0 then write(i,' '); inc(count); until coun
正确答案:
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.