s4:set of char=[’b’..’d’,’f’..’h’,’j’..’n’,’p’..’t’,’v’..’z’];
s5:set of char=[’B’..’D’,’F’..’H’,’J’..’N’,’P’..’T’,’V’..’Z’];
s1:set of char=[’a’..’z’];
s2:set of char=[’A’..’Z’];
s3:set of char=[’a’,’o’,’e’,’A’,’O’,’E’,’u’,’U’,’i’,’I’];
var
i,j,k,la,lb,lc,laa:longint;
s,ss,sss,sa,sx:string;
begin
readln(s);
laa:=length(s);
la:=0;
for i:=1 to laa do
if (s[i] in s1) or (s[i] in s2) then inc(la);
if la mod 3<>0 then begin
lb:=round(la/3);
lc:=round(la*2/3);
end
else begin
lb:=la div 3;
lc:=lb*2;
end;
j:=0; k:=0;
for i:=1 to laa do
begin
if (s[i] in s1) or (s[i] in s2) then
begin
inc(j);
if (s[i] in s2) or (s[i] in s1) then sa[i]:=’.’ else sa[i]:=s[i];
if j<=lb then
begin
sx[i]:=s[i];
ss[i]:=s[i];
end
else begin
ss[i]:=’.’;
if (s[i] in s5) or (s[i] in s4) then begin
sx[i]:=s[i]; inc(k);
end
else sx[i]:=’.’;
end;
if j<=lc then sss[i]:=s[i]
else begin
sss[i]:=’.’;
end;
end
else begin
sx[i]:=s[i];
sa[i]:=s[i];
ss[i]:=s[i];
sss[i]:=s[i];
end;
end;
for i:=1 to laa do
write(sa[i]);
writeln;
for i:=1 to laa do
write(ss[i]);
writeln;
if k<>0 then begin
for i:=1 to laa do
write(sx[i])
end
else for i:=1 to laa do
write(sss[i]);
end.
abcd efgh cccc
应该出现
.... .... ....
abcd .... ....
abcd efgh ....