试的题目求解,帮帮忙吧!
3个回答
展开全部
var
s:string;
bo:booolean;
i:longint;
begin
readln(s);
if length(s)<>8 then
begin
repeat
if length(s)<>8 then writeln('提示:“准考证号”必须输入,且长度为8位‘);
readln(s);
until length(s)=8;
end;
else begin
for i:=1 to 8 do if not (s[i]>='0')and(s[i]<='9') then bo:=true;
if not bo then readln(s)
else begin
repeat
if not bo then writelm(’提示:“准考证号“必须为数字‘);
readln(s);
bo:=false;
for i:=1 to 8 do if not (s[i]>='0')and(s[i]<='9') then bo:=true;
until bo=false;
end;
if length(s)=0 then
begin
repeat
if length(s)=0 then writeln('提示:”姓名“必须输入');
readln(S);
until length(s)<>0;
end;
writeln('OK');
end.
s:string;
bo:booolean;
i:longint;
begin
readln(s);
if length(s)<>8 then
begin
repeat
if length(s)<>8 then writeln('提示:“准考证号”必须输入,且长度为8位‘);
readln(s);
until length(s)=8;
end;
else begin
for i:=1 to 8 do if not (s[i]>='0')and(s[i]<='9') then bo:=true;
if not bo then readln(s)
else begin
repeat
if not bo then writelm(’提示:“准考证号“必须为数字‘);
readln(s);
bo:=false;
for i:=1 to 8 do if not (s[i]>='0')and(s[i]<='9') then bo:=true;
until bo=false;
end;
if length(s)=0 then
begin
repeat
if length(s)=0 then writeln('提示:”姓名“必须输入');
readln(S);
until length(s)<>0;
end;
writeln('OK');
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询