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
How many letters?
zad27-notoptimal
Excercise3
practica 5 ejercicio 1
Tri 1.0
Квартира из уч. Грицановой с местоположением квартиры на этаже
SP2013E1b
Naloga 5: 9.2.2011
Régua do Tanque Cilindrico Horizontal
Huong11a2@