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 := copy(nom,1,1); i_ap := copy(ap,1,1); iniciales := i_nom + i_ap; writeln('sus iniciales son ',iniciales); end.
run
|
edit
|
history
|
help
0
24/10/17
basketball_player_training
abundante
xFiles
Pokazivac-dinamicka alokacija memorije
pdp32
сумма чётных и нечётных чисел
5
Sum of array
Project 16 Pascal