Получить в строке символов разделённой пробелами количество слов начинающихся с ''d''

@Sfera001 · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

1)Получить в строке символов разделённой пробелами кол-во слов начинающихся с ''d''.
2)из строки символов удалить все символы не являющиеся буквами.
3)заменить все слова do на did.

Добавлено через 9 часов 51 минуту
Помогите кто ни будь буду очень благодарен!!!!

@КонецСвета · 21.11.2011, 12:04

Такой вариант... Внимание, поскольку в части 2 удаляется все кроме букв, в части 3 заменяются не слова, а слоги do. Если надо по другому, намекни...

Pascal

uses crt;
var s,sn,sp,t: string;
    i,kd: integer;
begin
sp:='qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';
write ('s=');
readln (s); s:=' '+s; sn:='';
for i:=1 to length (s) do
    begin
    if (s[i]=' ') and (s[i+1]='d') then inc(kd);
    if pos(s[i],sp)<>0 then sn:=sn+s[i];
    end;
writeln ('Slov na "d"=',kd);
writeln ('s=',sn);
for i:=length(sn) downto 1 do
    begin
    t:=copy(sn,i,2);
    if t='do' then
       begin
       delete (sn,i,2);
       insert ('did',sn,i);
       end;
    end;
write ('s=',sn);
end.

@Sfera001 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 17
		1
	Получить в строке символов разделённой пробелами количество слов начинающихся с ''d'' 21.11.2011, 08:02. Показов 1003. Ответов 1 Метки нет (Все метки) 1)Получить в строке символов разделённой пробелами кол-во слов начинающихся с ''d''. 2)из строки символов удалить все символы не являющиеся буквами. 3)заменить все слова do на did. Добавлено через 9 часов 51 минуту Помогите кто ни будь буду очень благодарен!!!! 0

	21.11.2011, 12:04

Получить в строке символов разделённой пробелами количество слов начинающихся с ''d''

Решение