давно
Старший Модератор
31795
6196
06.12.2015, 18:46
общий
это ответ
Здравствуйте, Посетитель - 399097!
Смотрите код:
[code lang=pascal h=200]var
a:string;
b,c:integer;
begin
write('Enter string:');
readln(a);
b:=pos(' ',a);{заменяем пробел для поиска втопрого}
a[b]:='.';{ставим точку}
c:=pos(' ',a)+1;{ищем второй прбел}
a[b]:=' ';{востанавливаем пробел}
a[b+2]:='.';{формируем инициалы}
a[b+3]:=a[c];
a[b+4]:='.';
delete(a,b+5,length(a));
write('Result:',a);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.