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

Question

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

Answer 1

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

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

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

Answer 2

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.


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

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

Comments

ООо благодарочка)