Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ariketa 09
//fpc 3.0.0 program HelloWorld; var a,t1,t2,t3,t4,i:integer; begin t1:=0; t2:=0; t3:=0; t4:=0; for i:=1 to 10 begin Repeat writeln('Idatzi hurrengo pertsonaren adina'); readln(a); if (a<0)or(a>12) then begin writeln('Sartutako adinak ez dirudi zuzena.Saiatu zaitez berriro'); end; until (a>0=) and (a<125); if (a>=0) and (a<=12) then begin t1:=t1+1; end else begin if (a>=13) and (a<=29) then begin t2:=t2+1; end; else begin if (a>=30) and (a<=59) then begin t3:=t3+1; end; else begin t4:=t4+1; end; end; end; end; writeln('0-12 tartean ',t1,'pertsona daude'); writeln('13-29 tartean ', t2,' pertsona daude'); writeln('30-59 tartean ',t3,' pertsona daude'); writeln('60tik gora ',t4,'pertsona daude'); end.
run
|
edit
|
history
|
help
0
JohnnyHCao
test27
practica 6 ejercicio 1
LogOp2
Dd
pascal sizeof
Helpme
Урок 4 задача 6
8
test04