while、repeat循环语句基础练习
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(I<10) Do
I:=I+3;
Write(I);
End.
4、下列程序输出结果为（）。Var
S,N:Integer;
Begin
N:=1234;
S:=0;
While(N<>0) Do
Begin
N:=N Div 10;
S:=S+1;
End;
Writeln(S)
End.
6、program c2_302;
var x:integer;
begin
x:=21;
repeat
write(x,' ');
x:=x-4;
until x<10;
end.
2、输入数据：02，下列程序输出结果为（）。
Var
X,Y:Integer;
Begin
Y:=0;
X:=1;
While x<>0 Do
Begin
Y:=Y+X;
Read(x);
End;
Write(Y);
End.
5、下列程序输出结果为（）。
Var
S,I:Integer;
Begin
I:=1;
S:=0;
Repeat
S:=S+I;
I:=I+1;
Until I>5;
Write(S);
End.
do while语句怎么用7、program c2_303;
var
i,x1,x2,x3,x4,y:integer;
begin
for i:=1980 to 2000 do
begin
y:=i;
x4:=y mod 10; y:=y div 10;
x3:=y mod 10; y:=y div 10;
x2:=y mod 10; x1:=y div 10;
if (x1=x4) and (x2=x3) then write(i,' ');
end;
program dgc1_301;
var
x:integer;
begin
x:=3;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。