Developing.ru

var a,b,k:string;
i,kl,ks,n:longint;
begin
write('Введите букву:');
readln(k);
write('Введите тест:');
readln(a);
n:=length(a);
for i:=1 to n-1 do begin
b:=copy(a,i,1);
if (b=k)then kl:=kl+1
else kl:=0;
if kl=3 then ks:=ks+1;
end;
write(ks);
end.

flag:=true;
for i:=1 to length(s) do
begin
if s='(' then flag:=false;
if flag then s1:=s1+s;
if s=')' then flag:=true;
end;

Помогите пожалуйста! Дана S - строка символов длиной n. Исключить из строки группы символов,расположенные между скобками (,). Сами скобки тоже должны быть исключены.Предполагается, что внутри каждой пары скобок нет других скобок.

Ищите по форуму. В прошлом году такая программа уже делалась.

Сделаю быстро и недорого
xranger@mail.ru

быстро, недорого

разделяете строку на слова, а потом посимвольно в обратном порядке записываете их в новую строку.
если необходима полная реализация - сделаю за небольшую деньгу 255507394

Ребят, помогите плз решить задачку на паскале! В общем условие такое что пользователь вводит строку и программа меняет в ней слова в обратном порядке! надо оч срочно))) я на вас надеюсь))

[syntax=pascal]
for i:=1 to lenght(s) do
case s of
ch: r1:=s1+1;
' ': begin if r1=3 then r2:=r2+1; r1:=0; end;
'.': break;
end;
[/syntax]

s -исходная строка
r1 - промежуточный счётчик
r2 - после выполнения программы, эта переменная будет содержать ответ

алгоритм))))
1)считываеш символ который надо искать
2 ) в цикле перебираеш символы в строке
условия перебора
а)если символ точка - конец перебора
б)если символ пробел - проверить значение счетчика количества вхождений искомого символа в слово, если оно равно 3 увеличить счетчик слов
сбросить счетчик вхождений
в)если символ - искомый - увеличить счетчик вхождений