记录编号 40704 评测结果 AAAAAAAAAA
题目名称 [暑假培训2012] 单词缩写 最终得分 100
用户昵称 GravatarH J H 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2012-07-18 17:54:35 内存使用 0.17 MiB
显示代码纯文本
var
a,s:string;
i,k,t:longint;
begin
assign(input,'abbreviation.in');
reset(input);
assign(output,'abbreviation.out');
rewrite(output);

readln(t);

FOR I:=1 TO T DO
    BEGIN
    readln(a);
    for k:=1 to length(a) do if a[k]in['a'..'z']then a[k]:=chr(ord(a[k])-32);
    a:=a+' ';
    k:=0;
        repeat
        s:='';
        if (a[k]=' ')or(k=0) then  repeat
                                   inc(k);
                                   s:=s+a[k];
                                   until a[k]=' ';

        delete(s,length(s),1);
        if (length(s)>=3)and(s<>'AND')and(s<>'FOR')and(s<>'THE')
        then write(s[1]);

        until k=length(a);

   if i<>t then writeln;
    END;




close(input);close(output);
end.