pascal编程输入n个整数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 22:32:16
楼上是C++写的,这个是C语言版的#include#includeintmain(){intcount;int*arrayLenth;int**intArray;int*elem1,*elem2;in
vara:array[1..1000]ofinteger;n,i,j,k:integer;beginreadln(n);j:=1;fori:=1tondobeginread(a[i]);ifa[i]
假设是用a数组存放的数据intsum=0,i,num=0,average;for(i=0;i
#include#includemain(){inti,k,t=0,n,max,min,sum=0;scanf("%d",&n);scanf("%d",&k);if(k%2==0){t++;sum+=
#include<iostream.h>#define num 5 //定义输入数的个数,可以自己定义个数,我暂定为5个void mai
eginreadln(n);fori:=1tondoread(a[i]);k:=1;fori:=1ton-1doifa[k]再问:说明部分也写一下再答:beginreadln(n);{读入一共多少个数
vari,k,n1,n2:integer;beginn1:=0;n2:=0;fori:=1to20dobeginreadln(k);ifk>0thenn1:=n1+1elseifk
什么语言?再问:c++再答:#includeusingnamespacestd;intmain(){intn,i,j,max=0;cin>>n;for(i=0;i>j;if(j200)break;if
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
#include#includemain(){\x09inta[50],n,i,j,t;\x09printf("inputn:");\x09scanf("%d",&n);\x09printf("inp
1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*(1+n)/2.1)programsum1;varb,i:long
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
设a[0](等于0)到a[i]的部分和为s[i],则只要求出s[0],s[1],…,s[n]之间的关系即可.而他们之间的关系可以用有向图表示,且在有向图中连成环的即为无解.对于a[i]至a[j]的和的
vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin
varn,i,j,k:integer;beginreadln(n);fori:=1tondobeginforj:=1to3dobeginwrite('':n-i+1);fork:=1toi+i-1do
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.
programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea