Pascal用while语句做1 2 3 -- n

programex_1;varn,tot:longint;beginn:=1;tot:=1;whilen

programcalc;vartotal:dword;i:integer;begintotal:=0;fori:=1to1000doif((imod15)=0)thentotal+=i;writeln

varn,s:longint;beginn:=1;s:=1;whiles1000;write(n);end.

programa1;vardog,last:integer;begindog:=0;repeatinc(dog);last:=1700-dog*31;iflastmod21=0thenwriteln(

programPi;constd=0.0006;//要提高精度,d要减小.varsum:double;n,sign:longint;beginsign:=1;sum:=0;n:=1;while(1/n

1do.while#includevoidmain(){inti,sum=1;i=1;do{sum=sum*i;i++;}while(i

while语句用法while(表达式){}/*循环体*/要学会WHILE很简单首先记住不要拼写错误表达式的值是1就继续进行{}这个循环体,否则就退出循环WHILE（1）不能说是无限循环,因为还不知道函

ifthenbegin...endelsebegin...endfori:=mtondo（也可以为fori:=ndowntomdo)begini为整形变量,m,n为常数...endwhile...do

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

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

programp1765;vara,b:longint;ch:char;beginread(a);read(ch);read(ch);read(b);ifch='+'thenwriteln(a+b)/

vari,ans:longint;find:boolean;begini:=0;find:=false;whilenotfinddobegini：=i+1;if(imod2=1)and(imod3=2

varn,x,y,z,s:integer;beginreadln(n);x:=1;y:=1;s:=2;repeatz:=x+y;x:=y;y:=z;inc(s);untils=n;write(z);e

ifa=bthenbeginwrite('123');write('456');end;要用beginend括起来

你的语句：if(m>0)thenw[i]：=b[m-1]elsew[i]：=b[0]；a[m-1]：=a[m-1]-1；实际上是下面的两个语句：if(m>0)thenw[i]：=b[m-1]elsew

第1题：programt1;vari,m:integer;begini:=6;m:=91;//因为第7天离山顶只有91米,不属于循环中,所以m=6,所以只有六天,所以i=6whilei>=1do//使

importjava.util.Scanner;publicclassTestClass{publicstaticvoidmain(String[]args){System.out.prin

1.program kkk;var a,b,i:longint;beginread(a);b:=0;for i:=1 to a do&nbs

按顺序判断第一个满足就执行然后后面的就不会执行了所以是只执行□□□□□□□的你注意理解else的意思"否则"既然都是"否则"了所以前面的条件一定不满足所以才要执行否则的内容只不过否则刚好又是一个if语

1.要确认A能不能被B整除，只要A除B的余数=0，那么他就能被B整除。否则就输出A，除号，B，等号，商（用整除函数DIV），再用A-B*商。程序：Vara,b:integer;BeginReadln(