pascal给出一个等差数列的前两项a1a2,求第n项是多少

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

用例子说话.计算一个整形数组里的连续元素和的最大值例：{9,-12,120,8,-20,100,30,-89,20}结果是{120,8,-20,100,30}的和最大,为238给出一个C语言算法.不是

varx,s:real;beginread(x);s:=0;ifx

此数列为斐波那契数列varn,i:integer;a:array[1..100]oflongint;beginread(n);a[1]:=1;a[2]:=1;fori:=3tondoa[i]:=a[i

varf:array[1..100]oflongint;n,i:longint;beginreadln(n);f[1]:=1;f[2]:=1;fori:=3tondof[i]:=f[i-1]+f[i-

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

楼上两位全错了……不解释,不信自己手算.定理：求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.

varn,i,min,max,maxi,mini,s:integer;x:array[1..100]ofinteger;ans:real;beginreadln(n);fori:=1tondoread

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

Pascal是语言FreePascal,TurboPascal,Delphi是开发工具Delphi所用的Pascal有点不一样,是改造过的Pascal语言是语言,工具是工具就像C++对应的开发工具有T

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

varn,ans:longint;beginreadln(n);ans:=0;whilen>0dobegininc(ans);n:=ndiv10;end;writeln(ans);end.

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

8位以内所有3进制数的数字和(注意是数字和),所以是3^7*(0+1+2)*8=52488

就是一个很简单的dp题.varn,m,i,j,k,t,s,d:longint;a:array[0..2001]oflongint;f:array[-2..2001,-2..2001]oflongint

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:string;a,b,c:longint;d:boolean;begind:=true;{试D先为true.｝read(s);c:=length(s);｛求字符串的长度.｝a:=cdiv2;

∧是逻辑运算符且相当于and∨是逻辑运算符或相当于or「是逻辑运算符非相当于notA:(notaandb)or(canddora)=(falseandtrue)or(falseandfalseortr

programex(input,output);vara:char;left,right:0..255;beginleft:=0;right:=0;a:='a';whileachr(10)dobegi