0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
5541
3428
uses crt;
const fi='Mahoa.inp' ;
fo='Mahoa.oup' ;
var a : array[1..100] of char ;
s : string ;
i, d : longint ;
function vowel(ss:string) : boolean ;
begin
if (ss ='a') or (ss='i')
or (ss='u') or (ss='e') or (ss='o')
then vowel := True else vowel := False ;
end ;
begin
clrscr;
assign(input,fi); reset(input);
assign(output,fo) ; rewrite(output);
readln(input,s); close(input);
for i := length(s) downto 1 do
if vowel(s[i]) then
begin
inc(d);
a[d] := s[i] ;
end ;
for i := 1 to d do write(output,a[i]);
close(output);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin