用FREE PASCAL 做一个程序‘判断数是否是三位数’

发布时间：2021-03-07 18:35:46

用FREE PASCAL 做一个程序‘判断数是否是三位数’

网友回答

varst:string[4];
i:longint;
beginreadln(st);
if length(st)>3 then writeln('不是三位数')
else begin
while (length(st)>0) and (st[1]='0') do delete(st,1,1);
if length(st)
以上问题属网友观点，不代表本站立场，仅供参考！