Данная прога выводит на экран только глухие согласные, которые есть во 2 слове текста!
Вопрос после кода:
Код
var s,l:string;
i,w:byte;
m:set of char;
begin
writeln('введите строку');
readln(s);
w:=pos(' ',s);
l:=copy(s,w,pos(' ',s));
m:=['ц', 'к', 'ш', 'х', 'ф', 'п'];
for i:=1 to length(l) do
if l[i] in m then
writeln(l[i]);
end.
Вопрос: Как сделать так чтобы во всей строчке если введется 2 пробела прога делала бы из них 1 . Например: после 1 слова введено 2 пробела из за этого не выведутся все согласные глухие.i,w:byte;
m:set of char;
begin
writeln('введите строку');
readln(s);
w:=pos(' ',s);
l:=copy(s,w,pos(' ',s));
m:=['ц', 'к', 'ш', 'х', 'ф', 'п'];
for i:=1 to length(l) do
if l[i] in m then
writeln(l[i]);
end.
Или может можно придумать условие?