Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Banyaknya huruf vokal
Program banyaknyahurufvokal; var T:array [1..10] of char =('a','i','u','e','o','A','I','U','E','O'); x:string; z,i,hasil,n:integer; begin readln(x); for i:=1 to length(x) do z:=hasil; repeat if (x[i]=T[n]) then hasil:=hasil+1; n:=n+1; until (z<hasil); writeln('banyaknya huruf vokal :',hasil); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
считалочка03
busca de string
Huong11a2@
record as a procedure argument
Pokemon2
pdp33-bankAccounts
SmallQuest
Сумма пар чисел кратных и некратных 11 с дельтой
janja - naloga 1 - 25.1.2012
05 ariketa
Please log in to post a comment.