while、repeat 循环语句基础练习.docVIP

While、repeat循环练习 1、下列程序输出结果为　（ 　　）。 Var Y:Integer; Begin Y:=2; WHILE(Y=32) DO Y:=Y*Y; Writeln(Y); End. 3、下列程序输出结果为　（　 ）。 Var I:Integer; Begin I:=0; While(I10) Do I:=I+3; Write(I); End. 4、下列程序输出结果为　（　 　）。 Var S,N:Integer; Begin N:=1234; S:=0; While(N0) Do Begin N:=N Div 10; S:=S+1; End; Writeln(S) End. 6、program c2_302; var x:integer; beginx:=21;repeatwrite(x, );x:=x-4;until x10; end. 8、 program dgc1_301; var x:integer; begin x:=3; while x100 do beginx:=x+1;x:=x*x; end; writeln(x); end. 10. program f1_302; var a,s,d,t:integer; begin a:=5612; s:=0; repeatt:=a;a:=t div 1