Информатика паскаль программирование Напишите программу, которая принимает строку, содержащую фамилию, имя и отчество человека ( каждая пара слов раздельна одним пробелом). Нужно построить новую строку, в которой записаны инициалы (первые буквы имени и фаиилии с точками после них) и черз пробел - фамилии

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program Initials;
var
fullName, initials, surname: string;
spacePos: integer;
begin
writeln('Введите фамилию, имя и отчество человека: ');
readln(fullName);
spacePos := pos(' ', fullName); // находим позицию первого пробела
if spacePos > 0 then
begin
initials := copy(fullName, 1, 1) + '.' + copy(fullName, spacePos + 1, 1) + '.'; // составляем инициалы
surname := copy(fullName, spacePos + 3, length(fullName)); // получаем фамилию
writeln('Инициалы и фамилия: ', initials, ' ', surname);
end
else
writeln('Ошибка ввода');
readln;
end.

После запуска программы вам нужно будет ввести строку, содержащую фамилию, имя и отчество человека, например "Иванов Иван Иванович". Программа построит новую строку с инициалами и фамилией: "И.И. Иванов".