Ввести фамилию, имя и отчество и вывести фамилию и инициалы - VB
Формулировка задачи:
Ввести фамилию, имя и отчество и вывести фамилию и инициалы.
Решение задачи: «Ввести фамилию, имя и отчество и вывести фамилию и инициалы»
textual
Листинг программы
txt = "Фамилия Имя Отчество" arr = Split(txt) Инициал_имя_Инициал_отчество_Фамилия = Mid$(arr(1), 1, 1) & "." & Mid$(arr(2), 1, 1) & "." & arr(0)