Работа со строковыми переменными.

[Babur4iK]

1. Дан текст. Заменить на пробелы буквы от «а» до «d» и от «k» до «n»;
2. Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами;

помогите

[ОДИНОЧЕСТВО В СЕТИ]

a:=['a'..'d','k'..'n'];
for i:=1 to length(s) do
if s[i] in a then s[i]:='  ';
for i:=2 to length(s) do
if (s[i]=' ') and (s[i-1]=' ') then s[i]='';
writeln(s);

[Babur4iK]

а вот if s[i] in a then s[i]:=' ';-что значит if s[i] in a

что то не очень понятно

[ОДИНОЧЕСТВО В СЕТИ]

 if s[i] in a

если дословно

если символ попадает во множество a

[Babur4iK]

а как быть если я множества не проходил пока !!!!!!

или без множеств не обойтись в данном случае???

тоесть по-другому можно как- нить сделать?

[ОДИНОЧЕСТВО В СЕТИ]

а как быть если я множества не проходил пока !!!!!!

тогда пиши

if (s[i]='a') or (s[i]='b') .....и так далее

или

s1:='abcdklmn';
for i:=1 to length(s) do
for j:=1 to length(s1) do
if s[i]=s1[i] a then s[i]:='  ';

[Babur4iK]

спасибочки вам !!!!!!!!!

[Serge_Bliznykov]

if (s[i]='a') or (s[i]='b') .....и так далее

ну зачем же так жестоко!
тут же диапазоны! Вы же при задании множества все буквы не перечисляли!?

if (s[i]>='a') and (s[i]<='d') or  (s[i]>='k') and (s[i]<='n') then s[i] := ' ';

[ОДИНОЧЕСТВО В СЕТИ]

ну зачем же так жестоко!

а гулять - так гулять!

[Babur4iK]

а вот в случае со вторым никак не получается,не подскажите