Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
nombre_completo
//fpc 3.0.0 program nombre_completo; var nom, ap, completo: string; i_nom, i_ap, iniciales : string; largo : integer; begin readln(nom); readln(ap); largo := length(ap); completo := nom + ap; writeln(completo); writeln('su apellido tiene ',largo,' letras'); i_nom := upcase(copy(nom,1,1)); i_ap := upcase(copy(ap,1,1)); iniciales := i_nom + i_ap; writeln('sus iniciales son ',iniciales); end.
run
|
edit
|
history
|
help
0
BubbleSor (slimst)
Triangle.pas
Вычисление cos(x) с помошью ряда Тейлора
Akanshapanchal2000@gmail.com
диагональ в алфавите
Llena un arreglo (con while)
xFiles
nested for loop a(ii)
imprimir_numeros_hasta_N
Bang cuu chuong