Предмет: Информатика,
автор: Texton
Pascal ABC
Ввести с клавиатуры в одну строку фамилию и имя, разделив их пробелом. Вывести первую букву имени с точкой и потом фамилию
Пример:
"Введите фамилию и имя:
Иванов Петр
П. Иванов"
Ответы
Автор ответа:
7
var s1,s2: string; p:integer;
begin
writeln('Введите фамилию и имя:');
readln(s1);
p:=pos(' ',s1);
s2:=copy(s1,p+1,1)+'. '+copy(s1,1,p-1);
writeln(s2);
end.
Пример:
Введите фамилию и имя:
Иванов Петр
П. Иванов
Похожие вопросы
Предмет: Геометрия,
автор: vanalysenko54
Предмет: Химия,
автор: roketvotik228
Предмет: Английский язык,
автор: tanya2004mytsak
Предмет: Математика,
автор: мур46
Предмет: Математика,
автор: nadechdavasilev