pascal语言输出分数

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

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

var a:array[1..5,1..5] of integer;    i,j,max,ij,x,y:integer;begi

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

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

vara,b:char;beginreadln(a,b);iford(a)>ord(b)thenwriteln(b,'',a)else(writeln(a,'',b));end.应该没错

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

其实这题运用一下数学思想就能优化许多纯粹的枚举肯定是徒劳无功的1/n=1/x+1/y=(x+y)/xy所以xy=n(x+y)=====>y=nx/(x-n)而x枚举的范围很容易知道在n+1到2nn+1

error50：doexpecte说明你有语法错误导致程序无法运行.修改程序如下：：：：：：vari,j:integer;beginfori:=1to9dobeginwrite('1':40-3*i)

thenif改为elseif

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.第二题：

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

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

输入：725194输出：124579

这个题目不难,只要确保输入的两个整型是一样长度的,用String的charAt取得对应位的字符,然后拼成String,最多把String再用Integer.parseString转成int.

varn,i,x,sum:longint;beginreadln(n);sum:=0;fori:=1tondobeginread(x);inc(sum,x);end;writeln(sum);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