Run Code
|
API
|
Code Wall
|
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
звёздное небо и подсчёт кратных звёзд
калькулятор
For10
Lunohod-1
1 25 6
08 while
Quadratic equation
practica 7 ejercicio 4
practica 7 ejercicio 1
a