Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы

@Illuminati_ · Регистрация: 19.09.2016

Студворк — интернет-сервис помощи студентам

Пример:
Введите фамилию, имя и отчество:
Иванов Петр Семёнович
П.С. Иванов

@Joy · 06.10.2016, 10:52

так все таки вывести фамилию и инициалы или инициалы и фамилию?

Добавлено через 3 минуты

Pascal

var
  FIO,s,t:string;
  i:byte;
begin
  write('Введите фамилию, имя и отчество:');readln(FIO);
  s:=copy(FIO,1,pos(' ',FIO)-1);
  for i:=1 to 2 do begin
    delete(FIO,1,pos(' ',FIO));
    t:=t+FIO[1]+'.';
  end;
  writeln('инициалы, фамилия:'+t+' '+s);
  writeln('фамилия, инициалы:'+s+' '+t);
end.

@Illuminati_ 0 / 0 / 0 Регистрация: 19.09.2016 Сообщений: 9
		1
	Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы 06.10.2016, 10:40. Показов 55516. Ответов 1 Метки нет (Все метки) Пример: Введите фамилию, имя и отчество: Иванов Петр Семёнович П.С. Иванов 0

	06.10.2016, 10:52

Опции темы

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы

Решение