Что то не получается.
[i]
program 123;
const sogl=['Ў','ў','Ј','¤','¦','§','«','¬','*','а',',',' '];
soglgl=['Є','Ї','б','в','д','е','ж','з','и','й',',',' '];
type symbol=set of char;
var stroka,s,s1:string;
i,k:integer;
d:boolean;
begin
writeln('Vvedite stroku st');
readln(stroka);
s:=' ';
s1:=' ';
d:=false;
//poisk soglasnih
for i:=1 to length(stroka) do if stroka[i] in sogl then
begin
s:=s+stroka[i];
end;
writeln(s);
writeln(s);
readln;
end.[/i]
Вот допустим строка:
Помидор, стул, стол, бревно, бить.
После пропуска в программе выходит:
мдр, л, л, брвн, б.
Как же мне оставить только те что повторяются лишь в одном слове?
в данном случае:
мд.
столько всего уже перепробовал и не выходит.