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
Fast program
janja - popravek
code
матрица из шариков
Macintosh HD/Users/aleksej/Downloads/132.docx
звёздное небо и подсчёт кратных звёзд
basketball_player_training
zad27-optimal
9
BubbleSort (standaard)