用pascal编程求1的一次方,2的平方,3的三次方直到N的N次方之和是多少.

programex1;varn,a,b,i,j,gongyueshu,gongbeishu:longint;beginreadln(a,b);if(a1和

vari,j1,j2,j3,k:integer;s:setof1..9;beginfori:=123to329do//满足条件的三位数中最小数的范围begins:=[];j1:=i;j2:=2*i;j

一三一三亮晶晶满天都是小星星么!笨脑!求采纳

vari:integer;sum:double;beginsum:=200;fori=1to100dobeginsum:=sum+sum*i*0.045;if(sum>500)thenbeginwri

programjuio;vari:integer;a,s:real;begina:=0;fori:=1to100dobegins:=a+i;a:=s;end;writeln(s:0:0);readln

vari,x,a：integer;beginread(x);a:=0;fori:=1toxdobeginifxmodi=0thena:=a+i;end;write(a);end.

typest=setofbyte;vars:st;functionsearch(a:longint;s:st):integer;vari:longint;begin  if(s=[

　　如上图,输入、输出的截图　　var　　a,b,c,x,y,t:double;　　begin　　readln(a,b,c);　　t:=b*b-4*a*c;　　if t>0　　then

vari,sum:longint;beginfori:=1to200doif(imod2=0)thensum:=sum+i;writeln(sum);end.在线打的,如有错,请谅解.再问：求所有三位

在print那个过程里,输出的后面,end；的前面,如果用文件就把文件close掉,然后再打halt；（结束程序）就只会输出一种了.修改后如下：procedureprint;vari:integer;

我给你几题吧,我要去参加宁波编程比赛,没时间了.1.varn,i:longint;s:real;beginreadln(n);i:=1;whileindobeginifimod2=1thens:=s+

var  i,n,s:longint; c:array[1..10000]oflongint;functionsum(p:longint):longint;var&nbs

programProject1;varm,n,x,i:Integer;beginReadln(m,n);x:=0;fori:=mtondoifimod3=0thenInc(x);Writeln(x);

vars:string;i:longint;beginreadln(s);writeln(length(s));fori:=1tolength(s)dowrite(s[i],'');writeln;f

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

programdd;vara,b,c:integer;beginfora:=1to9doforb:=0to10doforc:=0to10doifa*a*a+b*b*b+c*c*c=a*100+b*10

varx,s:int64;begins:=0;repeatread(x);inc(s,x);untilx=-1;writeln(s+1);end.

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

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

{用辗转相除法求两数的最大公约数Pascal源代码  作者  yjf_victor  2013年6月18日}program gcd