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
Подсчёт количества целочисленных точек внутри круга радиуса r
ruteo
Registracioni broj firme
Solving Quadratic Equation
Task
aefrt
test29
Naloga 8: 10.9.2008
pascal sizeof
Random