Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
procedure escribir caracter n veces
//fpc 3.0.4 procedure escribeCaracter(caracter : string; num : integer); var i : integer; cadena : string; begin cadena:=''; if(num = 0) then write('NADA QUE IMPRIMIR') else for i := 1 to num do begin cadena:=cadena+caracter end; write(cadena) end;
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Урок 3 задача 4
eliminar elementos de un arreglo
Lunohod-1
08 repeat
test10
135
sum_example1
JHONATAN MARINS DA SILVA 600623806
Heron Equationヘロンの公式
test16
Please log in to post a comment.