pascal求1*1 2*2 3*3 --n*n
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 12:29:15
vara,b,i:integer;beginreadln(a,b);fori:=ato1doif(amodi=0)and(bmodi=0)thenwriteln(i);end.//公约数vara,b,
vars,i,n:long;beginwrite('N=');readln(n);s:=0;fori:=1tondos:=s+i;writeln(s);end.
pascalpascalpascal!
可以用whilenoteof()do做再问:可以把程序写出来吗?再答:programxxx;varn,t:real;vari:integer;beginn:=0;i:=0;whilenoteof()d
vari:longint;s,max,min,t:real;beginrepeati:=i+1;read(t);ifi=1thenmin:=t;ifmaxtthenmin:=t;s:=s+t;unti
constn=5;varw:array[1..n]ofinteger; v:array[1..n]ofinteger; k:inte
1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g
数学题.varm,n:longint;beginread(n,m);write((m*2+n)div5,'',(n-m*3)div5);end.
这么多道题……第一题:varl,i:longint;begini:=0;{清零}l:=0;whilei再问:首先感谢你的耐心指导,可是,为什么上面几题都要加i:=i+1?再答:因为i要不断递加,whi
让我来点出你是个初学者的明显的特征:第一,你的程序的GCD还有LCM重新定义了A和B以及G,这样主过程里面的变量值是多少?函数里面变量值是多少?变量重名会造成很严重的后果第二,你的程序真长,看得我头疼
输入:725194输出:124579
超时原因挺简单的……比如一个a,你这个程序就死循环了……然后你这里还有个错误,就是任何一步都是会出现长度变成奇数的,所以你在pd这个函数里应该判断一下长度,而不是只在读入之后判断一次;以及,看下面的讨
varp,a,b,c,t,n:longint;bl:boolean;beginrepeatbl:=true;writeln('输入p,最后一位为1或3或7或9:');readln(p);if(pmod
晕,你也太爱占小便宜了.才5分就5道题,我一道NOIP的题就花了50分.还有你的题目不全,没有测试数据.建议你别悬赏,分5道问,题目描述和测试数据给全一点.
vari:longint;beginfori:=1to500dobeginif(imod3=2)and(imod5=3)and(imod7=2)thenwriteln(i);end;end.
var a,f:array[0..1001,0..1001] of longint; n,i,j:longint;function&nb
穷举+判断素数+判断倒序数是否为质数+数码和是否符合条件+数码积是否符合条件=输出
varn,i,j:integer;s:string;beginreadln(n);forn:=1tondobeginstr(n,s);i:=1;j:=length(s);while(i=jthenwr
按顺序判断第一个满足就执行然后后面的就不会执行了所以是只执行□□□□□□□的你注意理解else的意思"否则"既然都是"否则"了所以前面的条件一定不满足所以才要执行否则的内容只不过否则刚好又是一个if语
1.输入两个整数,按由大到小的顺序输出.programdaxiao;vara,b,c,t:integer;beginifa