Pascal输入整数n,求1 3 5 ... n之和

⒈首先要知道一个定理：(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.