Question

Информатика нужна программа по паскаль
Вводится строка, в которой сначала записана фамилия человека, а затем через пробел — его имя, например 'Семёнов Андрей'.

Запишите операторы, которые позволяют:

а) найти номер пробела, разделяющего фамилию и имя, и записать его в переменную р;
б) выделить из строки фамилию и записать её в переменную fam;
в) выделить из строки имя и записать его в переменную name;
г) приписать перед фамилией первую букву имени, точку и пробел.

Answer 1

Пример:
var

 str, fam, name: string;

 r: integer;

begin

 { Ввод строки }

 write('Введите фамилию и имя: ');

 readln(str);

 { Поиск номера пробела }

 r := pos(' ', str);

 { Выделение фамилии и имени }

 fam := copy(str, 1, r - 1);

 name := copy(str, r + 1, length(str) - r);

 { Формирование строки с инициалом }

 fam := name[1] + '.' + ' ' + fam;

 { Вывод результата }

 writeln('Фамилия и имя: ', str);

 writeln('Номер пробела: ', r);

 writeln('Фамилия: ', fam);

 writeln('Имя: ', name);

end.

При запуске программы пользователю будет предложено ввести строку, содержащую фамилию и имя, например "Семёнов Андрей". Далее программа выполнит описанные операции и выведет результат на экран.