Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Banyaknya huruf vokal
Var t:string; i,hasil:integer; x:char; procedure AA(x:string); begin case x of 'a':inc(hasil); 'i':inc(hasil); 'u':inc(hasil); 'e':inc(hasil); 'o':inc(hasil); 'A':inc(hasil); 'I':inc(hasil); 'U':inc(hasil); 'E':inc(hasil); 'O':inc(hasil); end; end; begin readln(t); hasil:=0; for i:=1 to length(t) do AA(t[i]); writeln(hasil); end.
run
|
edit
|
history
|
help
0
ariketa 01
Zadanie 4
Giai pt bac 2
solar sysmtem 6 (with random mass m1)
1º Questão - VS - 1º Semestre 2017
zadacha4
cond basico 1
basketball_player_training
nomer7
Lab1SumWithFor