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

@Оксана(ИТ-11) · Регистрация: 27.11.2011

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

@КонецСвета · 05.12.2011, 18:34

Pascal

uses crt;
var a: array [1..100] of string;
    b: array [1..100] of integer;
    i,j,k,l: integer;
    s,sl: string;
begin
write('s=');
readln(s);
j:=1;
sl:='';
if s[length(s)]<>'.' then s:=s+'.';
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.')
       then sl:=sl+s[i] else
            begin
            a[j]:=sl;
            sl:='';
            inc(j);
            end;
k:=j;
for j:=1 to k do
    write(a[j],' ');
for j:=1 to k do
    b[j]:=0;
writeln;
writeln('не повторяются: ');
for j:=1 to k do
    for l:=1 to k do
        if a[j]=a[l] then
           inc(b[j]);
for j:=1 to k do
    if b[j]=1 then write(a[j],' ');
end.

@Оксана(ИТ-11) · 05.12.2011, 18:43 **[ТС]**

спасибо)

@Оксана(ИТ-11) 3 / 3 / 0 Регистрация: 27.11.2011 Сообщений: 34
		1
	Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу. 05.12.2011, 18:29. Показов 2517. Ответов 2 Метки нет (Все метки) Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу. 0

@Оксана(ИТ-11) 3 / 3 / 0 Регистрация: 27.11.2011 Сообщений: 34
	05.12.2011, 18:43 [ТС]	3
	спасибо) 0

Опции темы

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

Решение