Pascal ABC Ввести с клавиатуры в одну строку фамилию и имя, разделив их пробелом. Вывести...

Question

Pascal ABC Ввести с клавиатуры в одну строку фамилию и имя, разделив их пробелом. Вывести первую букву имени с точкой и потом фамилию Пример: "Введите фамилию и имя: Иванов Петр П. Иванов"

Answer 1

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.

Пример:

Введите фамилию и имя:

Иванов Петр

П. Иванов