Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
09 Ariketa WHYLE
program Ariketa; var z1,errepikapenak,haurrak,gazteak,helduak,zaharrak:integer; begin errepikapenak:=1; haurrak:=0; gazteak:=0; helduak:=0; zaharrak:=0; writeln('Idatzi 10 pertsonen adina'); while errepikapenak<=10 do begin errepikapenak:=errepikapenak+1; read(z1); if (z1<13) then begin haurrak:=haurrak+1; end else begin if (z1<30) then begin gazteak:=gazteak+1; end else begin if (z1<60) then begin helduak:=helduak+1; end else begin zaharrak:=zaharrak+1; end end; end; end; writeln('haurrak ',haurrak,' dira eta gazteena da'); writeln('gazteak ',gazteak,' dira eta gazteena da'); writeln('helduak ',helduak,' dira eta gazteena da'); writeln('zaharrak ',zaharrak,' dira eta gazteena da'); end.
run
|
edit
|
history
|
help
0
homework
testMatrice0.1
pdp31-boolean
test07
practica 7 ejercicio 4
B prethodnih B sledecih
Looping (odd no.)
aaa
GUILHERME MEIRA MARINS 600624503
Sorting