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
Hello, 123
Giai pt bac 2
2. Proba
TAPCON
Стандартные функции в паскале round, trunc, int, frac
4 ariketa
Hailstone number
contar_divisores_de_N
10
Project Euler 20 - Factorial digit sum