Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
asdfa
//fpc 3.0.0 program Serie_Tiempo; const max=100; type vector=array[1..max]of real; var serie,dif,movil:vector; n:integer; procedure Leer_Val(var n,limInf,limSup:integer); begin repeat read(n) until(n>=limInf)and(n<=limSup); end; procedure Leer_Vector(var serie:vector;n:integer); var i:integer; begin for i:=1 to n do read(serie[i]); end; procedure Mostrar begin writeln('Hello, world!'); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Ejercicio SQRT
диагональ в алфавите
Escribir numeros a palabras hasta 4 digitos
1
2
Пиріжки
https://m.facebook.com/
CON YÊU MẸ
Macintosh HD/Users/aleksej/Downloads/132.docx
Sorting
Please log in to post a comment.