Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Pasha
Kelipatan
Вычисление площади фигуры
BubbleSort (standaard)
считалочка06
09
Project Euler 17 : Number letter count (1000)
practica 9 ejercicio 4
Задача №3549. Замечательные числа - 5
nomer6
Please log in to post a comment.