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
ruteo
formato_real
test25
Calculatrice 2.0
a 3 .b
practica 3 ejercicio B4
nomer9
Вычисление e^x с помошью ряда Тейлора
Первая задание
P170808A