Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Calculatrice (case of)
9
GUILHERME MEIRA MARINS 600624503
test07
1
Задача №1516. Проверка на простоту (цикл while)
practica 7 ejercicio 9
x-div-2-x-3+1
a 3 .a
Find Nash Equilibrium
Please log in to post a comment.