Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Võ Thái An Bình

nhập vào 1 xâu đếm xem trong xâu có bao nhiêu nguyên âm

giúp e vs 8h 24/7 e nộp r

Nguyên Hưng Trần
23 tháng 7 2021 lúc 19:36

Program Tin_hoc;

Uses crt;

var s:string;

      i,dem:integer;

Begin

clrscr;

dem:=0;

Write('Nhap xau: ');readln(s);

for i:= 1 to length(s) do if (s[i]='a') or (s[i]='e') or (s[i]='i') or (s[i]='o') or (s[i]='u') or (s[i]='y') then inc(dem);

Writeln('Xau vua nhap co ',dem,' nguyen am');

readln;

end.


Các câu hỏi tương tự
Lộc Nguyễn
Xem chi tiết
Ngânn Okk
Xem chi tiết
Võ Thái An Bình
Xem chi tiết
Đặng Thị Anh Thư
Xem chi tiết
Lala
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
Lala
Xem chi tiết
le Phuc
Xem chi tiết