Pascal语言:现在输入N和D,如果N能被D整数,则保留一位小数,如

varn:real;beginreadln(n);writeln('n的平方:',sqr(n):0:6);writeln('n的平方根:',sqrt(n):0:6);writeln('n的3次方根:'

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

这个其实可以用多种方法实现方法1：分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前

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

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.自创!

programsd;constm=3;vara:array[1..m]ofinteger;i,s,n:integer;functionzdgy(num1,num2:integer):integer;v

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

这个问题好著名.把它当做一个纯数学问题来举特殊值,当n=7 时,7^3=7^2×7 ,因此这七个连续奇数的平均数一定是 7^2=49 ,有想法了吗?7^3就是几

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

if(m>=6){count=0;for(number=m;numberk是为了预防i==k且都是素数的情况){judge=false;//有一个不是素数就不行break;}}if(judge)//如

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

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

#includeintmain(void){intn,i,j,k,x[100],min,p,t;while(scanf("%d",&n)!=EOF&&n!=0){for(i=0;i

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

varn,i,j,k,s:integer;beginreadln(n);fori:=2tondobegins:=0;j:=2;k:=i;whilej*j再问：好像输出还有点问题哈！输出的是完全平方数啊

Varn,Tot:Longint;BeginReadln(n);Tot:=1;Whilen>1DoBeginWrite(n,'');IfOdd(n)Thenn:=n*3+1Elsen:=nDiv2;I