只需一步,快速开始
扫一扫,访问微社区
支持广播台!!
下个星期二的节目是我,若柔还有团长做的!!
大家支持啊!!!!
举报
Program 007;
Var
s:string;
Begin
Writeln('Please enter the pw:');
Writeln('If you know the pw,you can enter''I Know'',Else you can enter''I Unknow'');
Readln(s);
If (s='I Know')Or(s='I Unknow') then Writeln('Error!The maxlength of the pw is 0');
Else Writeln('Not correct!Please enter the pw:');
End.
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|EFZM ( 沪ICP备17029626号-4 )
GMT+8, 2025-6-22 18:51 , Processed in 0.053690 second(s), 6 queries , File On.
Powered by Discuz! X3.4
© 2001-2017 Comsenz Inc.