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

Ответы 1

  • Var   S,C:string;   i:integer;BeginWrite('Введите фамилию, имя и отчество, разделяя их одним пробелом: ');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.Пример работы программы:Введите фамилию, имя и отчество, разделяя их одним пробелом: Толстой Лев НиколаевичТолстой Л.Н.
    • Автор:

      chips4qu
    • 2 года назад
    • 9
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years