Задачи по String

[forged]

1)Дана строка. Вывести строку, содержащая те же символы в обратном порядке.
'abcdgh' -----> 'hgdcba'

2)Дан символ С и строка S, S0.
Перед каждым вхождением символа С в строку S вставить строку S0.
C='v'
S='mavet' S0='fa'
'mafavet'

3) Дана строка состоящая из русских слов разделенных пробелом(1-им или несколькими). найти количество слов в строке.
'зажигала акула'
"2"

напишите код.

[Poma][a]

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

#1
Смотрите тут

[Stilet]

1)Дана строка. Вывести строку, содержащая те же символы в обратном порядке.
'abcdgh' -----> 'hgdcba'

2)Дан символ С и строка S, S0.
Перед каждым вхождением символа С в строку S вставить строку S0.
C='v'
S='mavet' S0='fa'
'mafavet'

var s,s0:string;c:string;i:integer;
begin
 s:='abcdgh'; for i:=length(s) downto 1 do write(s[i]); writeln;
 c:='v';S:='mavet' S0:='fa';
 i:=1: while i<=length(s) do begin
   if s[i]=c then begin insert(s,s0,i);inc(i,length(s0));end
   else inc(i);
 end;
 writeln(s);
 readln;
end.

найти количество слов в строке.

Идея тут: http://www.programmersforum.ru/showt...369#post398369
Подходит?

[forged]

Напишите какие операторы используются со string?
Я знаю такие
{"SizeOF" - Размер строки в байтах}
{write (S,' ',SizeOf(S))}
{"Length" - Фактический размер строки}
{Write(Length(S)) }
Delete (S,7,8); {удаляем из строки 8 символов, наченая с 7}

может есть еще?