记录编号 64980 评测结果 AAAAAAAAAA
题目名称 [暑假培训2012] 单词缩写 最终得分 100
用户昵称 Gravatar张汕成神犇 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-07-25 11:42:08 内存使用 0.17 MiB
显示代码纯文本
var
a,b,c,d,e,f,g,h:longint;
i,q,w:string;
begin
assign(input,'abbreviation.in');
reset(input);
assign(output,'abbreviation.out');
rewrite(output);
read(h); readln;

for b:=1 to h do
begin
read(i);readln;
 i:=i+' ';
for d:=1 to ord(i[0]) do
if (i[d]<='Z') and(i[d]>='A') then i[d]:=chr(ord(i[d])+32);

for c:=1 to ord(i[0]) do
if i[c]<>' ' then q:=q+i[c] else
 if (ord(q[0])>=3)and(q<>'and')and(q<>'for')and(q<>'the') then
 begin w:=w+chr(ord(q[1])-32);q:='';end else q:='';

writeln(w);
w:='';
i:='';
end;
close(input);
close(output);
end.