pascal给出一个整数n,接下来有n个整数,你要求出这n个整数中的最大值.

第一个数是4第n个数是3n+1所以前n项和(3n^2+5n)/2所以varn,i:longint;beginreadln(n);writeln((3*n*n+5*n)div2);end.

varn,t:longint;beginread(n);t:=0;whilen1doifnmod2=0thenbegint:=t+1;n:=ndiv2;endelsebegint:=t+1;n:=n*

用辗转相除不就行了!

这是以a1=4为首项、以d=3为公差的等差数列,则：an=a1＋(n－1)d得：an=3n＋1再问：怎么做？可不可以直接把过程写出来？再答：上面的就是完整解答过程。。再问：怎么打就是说var。。beg

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.

#includeintmain(intargc,constchar*argv[]){inta;intb=0;inti=1;printf("请输入数字：");scanf("%d",&a);for(int

varn,i,ans:integer;beginreadln(n);ans:=0;//读入,计数器置0fori:=1tondoifnmodi=0theninc(ans);//从1到n循环找到一个他的因

programsushu(input,output);vari,n,t:integer;beginread(n);fori:=2ton-1doifnmodi=0thent:=1;ift=1thenwr

10亿的数列读入要多久呢--再问：好像有看过别人用位运算来做不然1亿以内也可用到xor??再答：用异或的那个是叫你在10^8个数字中找出唯一个值出现一次的数字(其他的数字都出现两次).因为涉及统计,这

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

vari,n,r:longint;s:single;beginreadln(n);fori:=1tondobeginreadln(r);writeln(r*r*3.1415926:0:2);end;e

vari,n:longint;b:boolean;beginreadln(n);b:=true;ifn

vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin

programkkk;varn,s,i,p,x,ans:longint;k:qword;a:array[1..5000000]oflongint;procedureinit;vari:longint;

vari,n:longint;beginreadln(n);i:=7;whilei

vars:string;n,i,j,k,sum:longint;beginread(n);fori:=1tondobeginstr(i,s);forj:=1tolength(s)doinc(sum,o

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

programp2002i3;constv:array['0'..'9']oflongint=(0,1,2,3,4,5,6,7,8,9);ch:array[0..9]ofchar='012345678