pascal语言编写:对于任意输入的整数,计算其各个数位上的数字之和.

programques_1;vari,j,k:integer;beginfori:=1to9doforj:=0to9dofork:=0to9doifi*i*i+j*j*j+k*k*k=100*i+10

1.思路：用一个字符串数组储存输入的数据，并分别输出。程序：Vara:array[1..3]ofstring;i:integer;BeginFori:=1to3doReadln(a[i]);Fori:

varn,round,i,j,k:integer;a:array[1..100,1..100]ofinteger;beginreadln(n);k:=1;forround:=1tondoifround

或者QQ我发给你

vars,i,n:long;beginwrite('N=');readln(n);s:=0;fori:=1tondos:=s+i;writeln(s);end.

没时间去写了.我的感觉是记搜,定义f(a,b)为第a位到第b位之间这一段算式的可能数.如果b-a>1且[a,b]段没有运算符,f(a,b)返回0即没有可能.如果b-a=1且[a,b]为数字.返回1.否

programtestcase;Usessysutils;varhex,result:string;hex_len,i,ch,chv,value,bits:Integer;good_char:bool

vara,b,i,j,top:longint;s:array[1..100]oflongint;begina:=121;b:=130;top:=0;fori:=atobdoforj:=1toi-1do

programa4;vara,b,c:integer;beginreadln(a,b,c);if(((a>0)and(b>0)and(c>0))and((a+b>c)and(a+c>b)and(b+c

vars:integer;n:real;beginn:=100;s:=0;whiles再问：它求的是总路程吧？一共是20次着地。要全部加起来的。。我搞定了。。programcx3;vara,s:rea

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

programconnect;vars:array[1..10]ofstring;ss:string;n,i,j:longint;beginreadln(ss);assign(input,ss+'.i

VARi,j,k:integer;BEGINFORi:=0TO33DOFORj:=0TO50DOBEGINk:=90-i-j;IF15*i+10*j+5*k=500THENwriteln(i:5,j:

第一题:programf1;varn:integer;beginreadln(n);writeln(nmod10,ndiv10mod10,ndiv100mod10,ndiv1000);end.第二题：

1、题目没错吧下面是程序,不过不可能符合的啊vari:longint;beginfori:=0to9doifi*6528=(30+i)*8256thenwriteln(i);end.2、vari:lo

Consta:array[1..23]ofinteger=(11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,11,19,9);varmax,i,l

varn,i,x,sum:longint;beginreadln(n);sum:=0;fori:=1tondobeginread(x);inc(sum,x);end;writeln(sum);end.

f[i,j]=f[i-1,j]+f[i-1,j+1]f[i,j]表示杨辉三角形的第i行第j列.f[1,1]=1;fori:=2to10doforj:=1toidof[i,j]=f[i-1,j]+f[i

不是直接输出这个图形是有规律的因为第一行0个空格,3个*,增加一行就加一个空格所以个人认为是这样的vari,n:integer;beginread(n);(输入行数）；fori:=1tondowrit

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a