Pascal输入n×n方阵,分别求两条对角线上元素之和.

varn,i,j,k:longint;s:array[1..24,1..24]oflongint;begink:=0;readln(n);fori:=1tondoforj:=1toidobegink:

(*基本算法*)vara,b,t,n:longint;beginreadln(n);a:=1;fori:=1tondobegint:=a;a:=a+b;b:=t;end;writeln(a);end.

高精度与高精度乘法【问题描述】设高精度数a[1]a[2]...a[n-1]a[n]与高精度b[1]b[2]...b[n-1]b[n]的乘法可表示如下：a,b:array[1..n]of0..9;即：a

vari,n,m,max,min:longint;beginreadln(n);max:=-maxlongint;min:=maxlonint;//初始化fori:=1tondobeginreadln

公约数公倍数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.自创!

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr

vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=

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

楼主你想表达什么?输入还是输出?再问：输出图形，输入行数再答：n的范围是不是小于26？再问：是再答：写好了vari,j,n:integer;c:char;beginread(n);c:='a';for

Programdiamond;Vari,j,k,n:integer;Beginreadln(n);fori:=1tondobeginforj:=1ton-idowrite('');fork:=1to2

数据太大了吧……只好用高精度了.下面是高精度的代码：procedureReadData(vart:hp);vari,len:integer;st:string;beginreadln(st);fill

#includevoidmain(){intn,min,a[100],i,t,e;while(scanf("%d",&n)!=EOF&&n

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.

参考程序：Programcount;Vara,b,c,n,m,i:integer;BeginRead(n);a:=0;b:=0;c:=0;Fori:=1TonDoBeginRead(m);IfmMod

programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea

你没说数据范围.如果s比较小的话,用这个程序就行了：programexample;varx,i,n,s:byte;a:array[1..256]ofbyte;s:array[0..9]ofbyte;p

DPf[i]表示凑成i的方案数与noip2010第二题很像f[i]:=f[i-k]+1再问：k是什么？再答：k是你枚举减去的数再问：汗。。。听不懂，到底是什么？举个例子再答：==求证中再问：如果是用递