Задача Pascal

  • Автор темы YuZuK
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Y

YuZuK

Гость
#1
Задано строку, в которой слова друг от друга отделены одним пробелом. Перед каждым словом, которое начинается с буквы 'J' вставить точку!!!!
 

nayke

Well-Known Member
04.08.2010
310
0
Москва
#2
Задано строку, в которой слова друг от друга отделены одним пробелом. Перед каждым словом, которое начинается с буквы 'J' вставить точку!!!!

Код:
s:=s+' '

while pos(' ',s)<>0 do
begin
LWord:=Copy(s,1,pos(' ',s));
Delete(s,1,pos(' ',s));
if LWord[i]='J' then LWord:='.'+LWord;
REsult:=result+LWord;
end;
что-то в этом духе..
 
Статус
Закрыто для дальнейших ответов.