提示问题 http://www.rqnoj.cn/Problem_212.html
这是我的程序
为什么连样例都过不去
program rq212;
var
a:array[1..1000]of longint;
b:array[1..1000]of char;
s:string;
p,i,j,m,n,k,l,t:longint;
begin
read(s);
l:=length(s);
for i:=1to l do
begin
if (s>='a')and(s='A')and(s='a')and(s[n]='A')and(s[n]='a')and(s[n]='A')and(s[n]<='Z')
then begin write(s[n]); b[p]:=s[n]; inc(n,p); end
else inc(n)
end;
end;
readln(j)
end.
|