строки, вывод слов без повторяющихся букв Опции

[Tanchik]

Никак не могу написать процедуру вывода строки без слов с повторяющимися буквами

[Ozzя]

А Ваши попытки можно увидеть? Подправить не проблема, я думаю.

[Tanchik]

program slova;
uses crt;
var st,s:string;  b,c:array [1..50] of string;  i,k,n,j,f:integer;
begin clrscr;
writeln ('vvedite kolichestvo slov');
readln(k);
for i:=1 to k do
begin
writeln ('vvedite slova');
readln (b[i]);
end;
n:=1;
for i:=1 to k do
begin
s:=b[i];
for f:=1 to length(s) do
begin
for j:=f+1 to length(s) do
if s[f]<>s[j] then
begin
c[n]:=s;
end;
inc(n);
end;
end;
for i:=1 to n do
begin
write(c[i]);
write(' ');
end;
readkey;
end.

М

Просьба использовать тэги паскалевского кода! Lapp

[Lapp]

написать процедуру вывода строки без слов с повторяющимися буквами

А что значит "с повторяющимися"? Скажем "корова" - с повторяющимися? Или только "кросс"?

[Tanchik]

корова тоже повторяющееся слово, не повторяющееся например Дом

[Ozzя]

повторяющиеся буквы

[Tanchik]

спасибки, я решила