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/07/04 08:19:49
![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](/uploads/image/z/2788446-30-6.jpg?t=pascal%EF%BC%9A%E6%89%BE%E5%87%BAn%E4%B9%8B%E5%90%8E%28%E6%B3%A8%E6%84%8F%EF%BC%9A%E5%8C%85%E5%90%ABn%E6%9C%AC%E8%BA%AB%29%E5%89%8Dx%E4%B8%AA%E5%A5%87%E5%BC%82%E6%95%B0.%E6%89%80%E8%B0%93%E5%A5%87%E5%BC%82%E6%95%B0%E6%98%AF%E6%8C%87%E8%BF%99%E4%B8%AA%E6%95%B0%2A3%2B4%E5%90%8E%E8%83%BD%E8%A2%AB5%E6%95%B4%E9%99%A4.var+n%2Cx%2Ccount%2Ci%3Alongint%3Bbegin+readln%28n%2Cx%29%3B+i%3A%3Dn%3B+count%3A%3D0%3B+repeat+inc%28i%29%3B+if+%28i%2A3%2B4%29+mod+5+%3D+0+then+write%28i%2C%27+%27%29%3B+inc%28count%29%3B+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 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.