VB

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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
LN
Xem chi tiết
NO
Xem chi tiết
VB
Xem chi tiết
DT
Xem chi tiết
H24
Xem chi tiết
DM
Xem chi tiết
DM
Xem chi tiết
H24
Xem chi tiết
LP
Xem chi tiết