Строковые переменные Опции

[Очередная]

??? Привет! Чайник просит помощи у умных людей!!!
Помогите решить задачу на строковые переменные. Задача: Сколько одинаковых слов в предложении, введенном с клавиатуры? Вывести на экран слова и их количество. Заранее большое спасибо

[Очередная]

А мне подсказали вот этот вариант, только он выводит начальные буквы двух слов. Посмотрите, пожалуйста. какая в программе ошибка.

Код

Program strings;
Var
j,n:integer;
s,sl,s1:string;
I,k:byte;
Begin
Writeln (‘Введите строку:’);
Readln (s);
k:=1;
j:=1;
For I:=1 to length(s) do
If s[I]=’ ‘ then
Begin
Sl:=copy(s,j+1,k);
j:=I;
k:=0;
s1:=copy (s,j,length(s));
If pos(sl,s1)=0 then
Begin
Writeln (sl);
k:=k+1;
s1:=copy(s,I+1,n);
End;
k:=k+1;
End;
End.

Сообщение отредактировано: volvo - 18.12.2004 2:33