Pascal输入整数n,求1 3 5 ... n之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/31 17:31:06
⒈首先要知道一个定理:(a*b)modn=((amodn)*(bmodn))modn.这样就可以边乘变算,不论n多大都能不超时,否则还需要进行高精度运算代码:varn,i,m:longint;begi
想了想...1--varn,m:integer;functionf(n,m:integer):longint;vari,s:longint;{因为总和可能很大所以用longint}beginfori:
vari,j,n,l,k,m,n:longint;a:string;beginn:=1;readln(l);fori:=2toldon:=n*i;str(n,a);j:=length(a);m:=1;
vara:array[1..1000]ofinteger;n,i,j,k:integer;beginreadln(n);j:=1;fori:=1tondobeginread(a[i]);ifa[i]
eginreadln(n);fori:=1tondoread(a[i]);k:=1;fori:=1ton-1doifa[k]再问:说明部分也写一下再答:beginreadln(n);{读入一共多少个数
公约数公倍数vara,b,i,p,n,m:longint;beginread(a,b);ifa>bthenp:=aelsep:=b;whilei
varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!
楼上两位全错了……不解释,不信自己手算.定理:求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.
http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n
varn,i,ans:integer;beginreadln(n);ans:=0;//读入,计数器置0fori:=1tondoifnmodi=0theninc(ans);//从1到n循环找到一个他的因
输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相加求和;如果N是奇数,则拆分N的各个数字相乘求积.(如果是偶数则在输出时应加上“H=”,奇数则在输出时应加上“J=”)
1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*(1+n)/2.1)programsum1;varb,i:long
varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr
programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr
varm,n,a,b,r:integer;beginreadln(a,b);m:=a;n:=b;r:=mmodn;whiler0dobeginm:=n;n:=r;r:=mmodn;end;writel
核心代码readln(n);whilen0dobeginifn=1thenwriteln(0)elsebeginforj:=2tondoifprime(j)theninc(ans);writeln(a
{而这10个数:106991041201071123310297100 按一定顺序排列后得到:120112107106104102100999733 正中间有两个数:104102,中位数就是这两个数的
vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin
programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm再问:拜托,错了再答:programex1;varj,m,n,m1,n1,a,b:i
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.