Question

ПАСКАЛЬ Ввести имя, отчество и фамилию. Преобразовать их к формату "фамилия и инициалы" Ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на кобылкин ю.с

Answer 1

Var
   S,C:string;
   i:integer;
Begin
Write('Введите фамилию, имя и отчество, разделяя их одним пробелом: ');
ReadLn(S);
S:=S+' ';
i:=1;
While S[i] <> ' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
C:=C+' '+S[i+1]+'.';
i:=i+1;
While S[i] <> ' ' do
   i:=i+1;
While S[i] <> ' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
C:=C+S[i+1]+'.';
WriteLn(C)
End.


Пример работы программы:

Введите фамилию, имя и отчество, разделяя их одним пробелом: Толстой Лев Николаевич
Толстой Л.Н.

Answer 2

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString('Имя отчество фамилия:').ToWords;
  Writeln(w[2],' ',w[0][1]+'.',w[1][1]+'.')
end.

Пример
Имя отчество фамилия: юрий сергеевич кобылкин
кобылкин ю.с.

Answer 3

Вот пример программы на языке программирования Паскаль, которая выполняет указанное вами преобразование:

pascalCopy code
program FormatName;

var
  fullName, lastName, initials: string;
  spacePos: integer;
  i: integer;

begin
  writeln('Введите имя, отчество и фамилию:');
  readln(fullName);
  
  spacePos := pos(' ', fullName);
  lastName := copy(fullName, 1, spacePos - 1);
  
  initials := '';
  for i := spacePos + 1 to length(fullName) do
  begin
    if fullName[i] = ' ' then
      break;
    initials := initials + fullName[i];
  end;
  
  writeln('Результат:');
  writeln(lastName, ' ', initials[1], '.', initials[2]);
end.

Скопируйте этот код в среду разработки Паскаля (например, Lazarus или Free Pascal) и выполните программу. Программа попросит вас ввести имя, отчество и фамилию, а затем выведет преобразованный результат в формате "фамилия и инициалы".