Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
09 Ariketa INTEGER
program Ariketa09; var z1,errepikapenak,haurrak,gazteak,helduak,zaharrak:integer; begin writeln('Idatzi 10 pertsonen adina'); errepikapenak:=0; haurrak:=0; gazteak:=0; helduak:=0; zaharrak:=0; repeat begin read(z1); errepikapenak:=errepikapenak+1; if (z1>0)and(z1<13) then begin haurrak:=haurrak+1; end else if (z1>12)and(z1<30) then begin gazteak:=gazteak+1; end else if (z1>29)and(z1<60) then begin helduak:=helduak+1; end else begin zaharrak:=zaharrak+1; end end until errepikapenak=10; writeln('haurrak ',haurrak,' dira.'); writeln('gazteak ',gazteak,' dira.'); writeln('helduak ',helduak,' dira.'); writeln('zaharrak ',zaharrak,' dira.'); end.
run
|
edit
|
history
|
help
0
7
matrix - changing upper diagonal elements
444555666
janja - popravek
ariketa 05
03 ariketa
ANDRESSA LIMA NEPOMUCENO 600624624
4546
Задачи на div-mod
practica 2 ejercicio 3