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
Ex5b20
звёздное небо с подсчётом двойных звёзд
pretvarac u sekunde
solar system 7 (update)
Elevador Versão Pascal StringList
Linija
janja - naloga 1 - 25.1.2012
practica 3 ejercicio B1
mine
x-div-2-x-3+1