Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
10 Ariketa
//fpc 3.0.0 program HelloWorld; var h:string; b:integer; k:integer; begin b:=0; k:=0; writeln('Idatzi hitz bat'); repeat Readln(h); if(UPCASE(h[1])='A')or(UPCASE(h[1])='E')or(UPCASE(h[1])='I')or(UPCASE(h[1])='O')or(UPCASE(h[1])='U')then begin b:=(b+1); end else begin k:=(k+1); end; until(UPCASE(h)='AMAIERA'); writeln('Bokalez ',b,' hitz hasten dira'); writeln('Kontsonantez ',k,' hitz hasten dira'); end.
run
|
edit
|
history
|
help
0
Pokazivac-dinamicka alokacija memorije
Lineare Liste Aufbauen
BubbleSort (standaard)
La calculatrice
kroliki
Mengubah desimal ke biner
practica 7 ejercicio 1
conversion Metrica
0
Урок 4 задача 5