Напечатать те слова, которые встречаются в тексте один раз

@Викуся) · Регистрация: 16.12.2011

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

дано предложение.напечатать те слова которые встречаются в нем один раз.

Добавлено через 12 секунд
не знаю как

@КонецСвета · 17.03.2012, 23:49

Pascal

uses crt;
var a: array [1..255] of string;
    i,j,k,l: byte;
    s,sl: string;
begin
write('s='); readln(s);
s:=s+' '; sl:=''; j:=0;
for i:=1 to length(s) do
    if not (s[i] in [' ','.',',',':',';','-','!','?'])
       then sl:=sl+s[i] else
            if length(sl)>0 then
               begin
               inc(j);
               a[j]:=sl;
               sl:='';
               end;
    for i:=1 to j do
        begin
        k:=0;
        for l:=1 to j do
            if a[i]=a[l] then inc(k);
        if k=1 then write(a[i],' ');
        end;
readln;
end.

@Викуся) 2 / 2 / 3 Регистрация: 16.12.2011 Сообщений: 69
		1
	Напечатать те слова, которые встречаются в тексте один раз 17.03.2012, 18:38. Показов 1722. Ответов 1 Метки нет (Все метки) дано предложение.напечатать те слова которые встречаются в нем один раз. Добавлено через 12 секунд не знаю как 0

	17.03.2012, 23:49

Напечатать те слова, которые встречаются в тексте один раз

Решение