Паскаль ввести имя, отчество и фамилию. преобразовать их к формату "фамилия и инициалы" ни типо пишешь в графу: юрий сергеевич кобылкин, а оно исправляет на кобылкин ю.с
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.
Пример работы программы:
Введите фамилию, имя и отчество, разделяя их одним пробелом: Толстой Лев Николаевич Толстой Л.Н.
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.
Пример работы программы:
Введите фамилию, имя и отчество, разделяя их одним пробелом: Толстой Лев Николаевич
Толстой Л.Н.
// Внимание! Если программа не работает, обновите версию!
begin
var w:=ReadlnString('Имя отчество фамилия:').ToWords;
Writeln(w[2],' ',w[0][1]+'.',w[1][1]+'.')
end.
Пример
Имя отчество фамилия: юрий сергеевич кобылкин
кобылкин ю.с.