pascal语言做 跟奥巴马一起画方块

vara:array[2..10000]ofboolean;i,j:word;n:word;beginreadln(n);fillchar(a,sizeof(a),true);fori:=2tondo

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

varn,i,l:integer;a,b,c:array[1..10000]ofbyte;procedureplus;vari:integer;beginfillchar(c,sizeof(c),0)

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

Dowithme.楼上,没有说要完整句子吧,那你说跟我走怎么说?followme.跟我来着呢么说?comewithme.那些是完整句子么?如果是跟我一起做某事,是dosthwithme,如果单纯的指令

varx,s:real;beginread(x);s:=0;ifx

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

不知是你题有问题还是…………貌似不用排序啊…………程序如下：varn,i,a:longint;{这里integer上限是33767,显然不能符合50000,因此用longint}T,P,Q:longi

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

简答题,不解释,不懂再问我vari,j,k,l,l1,m,n:longint;s,s1:string;beginreadln(s);read(s1);l:=length(s);l1:=length(s

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:

vara,b,c:integer;beginreadln(a,b,c);if(a>=b)and(a>=c)thenwrite(a,'');if(b>=c)and(b>=a)thenwrite(b,''

第一题: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

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

comeoneverybody,pleasefollowme.

中国不会对任何国家构成威胁,相反,中国一贯坚持独立自主和平共处的外交政策,希望同多方面在多领域开展多层次合作.中美两国是国际大国,更应该促进互利互信共赢共处的和平发展局面.

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

vara:array[1..9]oflongint;i,n:longint;beginfori:=1to9dobeginread(a[i]);ifa[i]=-1thenn:=i;end;casenof