Страница 1 из 1
я новичек,нужна помощб в решении задачи очень
Добавлено: 21 окт 2010, 16:10
Shhechka
задача простая,но мне она не по силам...
если не сдам будет завал
Во всех словах, начинающихся с f, заменить f на сочетание ph.
Re: я новичек,нужна помощб в решении задачи очень
Добавлено: 22 окт 2010, 12:57
Snoopy
Готов помочь!Пишите обсудим!
ICQ: 437528958
Re: я новичек,нужна помощб в решении задачи очень
Добавлено: 28 окт 2010, 16:26
dr.Jekill
[syntax='pascal']
var s:String;
i:byte;
begin
write('Vvedite stroku: ');
readln(s);
i:=0;
while i<=Length(s) do
begin
inc(i);
if (i=1) or (s[i-1]=' ') then
if UpCase(s)='F' then
begin
delete(s,i,1);
insert('ph',s,i);
end;
end;
writeln(s);
readln;
end.
[/syntax]
Shhechka, НАЗВАНИЕ ТЕМЫ ДОЛЖНО ОТРАЖАТЬ СУТЬ ВОПРОСА!
В следующий раз удалю.