pascal给出一个等差数列的前两项a1a2,求第n项是多少
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/19 02:40:00
![pascal给出一个等差数列的前两项a1a2,求第n项是多少](/uploads/image/f/738805-13-5.jpg?t=pascal%E7%BB%99%E5%87%BA%E4%B8%80%E4%B8%AA%E7%AD%89%E5%B7%AE%E6%95%B0%E5%88%97%E7%9A%84%E5%89%8D%E4%B8%A4%E9%A1%B9a1a2%2C%E6%B1%82%E7%AC%ACn%E9%A1%B9%E6%98%AF%E5%A4%9A%E5%B0%91)
第一个数是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