Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
09 Ariketa FOR
program Ariketa09; var z1,z2,haurrak,gazteak,helduak,zaharrak:integer; begin haurrak:=0; gazteak:=0; helduak:=0; zaharrak:=0; for z1:= 1 to 10 do begin repeat writeln('Idatzi 10 pertsonen adina'); read(z2); until(a>=0) and (a>125); if (z2<13) then begin haurrak:=haurrak+1; end else begin if (z2<30) then begin gazteak:=gazteak+1; end else begin if (z2<60) then begin helduak:=helduak+1; end else begin zaharrak:=zaharrak+1; end end end end; writeln('Haurrak ',haurrak,' dira'); writeln('Gazteak ',gazteak,' dira'); writeln('Helduak ',helduak,' dira'); writeln('Zaharrak ',zaharrak,' dira'); end.
run
|
edit
|
history
|
help
0
Test
test02
Potenztabelle
08 while
Луноход-3
digits_count
Task
BubbleSor (slimmer)
real vs integer
Задача 2 урок не из учебника