Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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 do begin Repeat writeln('Idatzi hurrengo pertsonaren adina'); readln(a); 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
6
Первая задание
P170808C
0 1 0 0 0 1 1 1
janja - naloga 2 - 9.2.2011
Procedimientos Leer - Poblar - Mostrar
Task 2
Matrix
6
Apaja