JLOI 提示问题

按照题目意思模拟即可。

Program XJOI2265;
const a:array[1..10] of char=('a','e','i','o','u','A','E','I','O','U');
var s:ansistring;
    len,i,j,sum,x,y:longint;
    flag:boolean;
function check(ch:char):boolean;
begin
    if (ch>='A') and (ch<='Z') or (ch>='a') and (ch<='z') then exit(true); exit(false);
end;
function vowel(ch:char):boolean;
var i:longint;
begin
    for i:=1 to 10 do if ch=a[i] then exit(true); exit(false);
end;
begin
    readln(s);
    len:=length(s); sum:=0;
    for i:=1 to len do
        if check(s[i]) then
        begin
            write('.');
            inc(sum);
        end
        else write(s[i]);
    writeln;
//---------------------- the first --------------------------
    x:=round(sum / 3);
    for i:=1 to len do
        if check(s[i]) then
            if x>0 then
            begin
                write(s[i]);
                dec(x);
                if x=0 then y:=i;
            end
            else write('.')
        else write(s[i]);
    writeln;
//----------------------- the second -------------------------
    flag:=false;
    for i:=y+1 to len do
        if vowel(s[i]) then
        begin
            flag:=true;
            break;
        end;
    for i:=1 to y do write(s[i]);
    if flag then
    for i:=y+1 to len do
        if check(s[i]) then
            if vowel(s[i]) then write(s[i]) else write('.')
        else write(s[i])
    else
    begin
        x:=round( sum*2/3)-round(sum/3);
        for i:=y+1 to len do
        if check(s[i]) then
            if x>0 then
            begin
                write(s[i]);
                dec(x);
                end
            else write('.')
        else write(s[i]);
    end;
    writeln;
//----------------------- the end -------------------------    

end.