5.12

//zadacha 5.12
//Дана символьная строка. Определить количество различных слов в этой строке и вывести их.
//nazvanie programi
program expl;
//s stroka i index slova k количество слов в строке
var
  s: String;
  i, k: Integer;
begin
//vvod stroki
  Write('vvedite stroku: '); ReadLn(s); s:=s+' ';
//podschet strok, i simvol начала stroki, lenght(s) сколько символов в строке(её длина)
  for i:=1 to Length(s) do
  begin
//inc увеличивает значение переменной K(слова) до первого пробела и
//если найдено обрезает пробел. Получается первое слово найдено
  Inc(k,Ord((s[i]=' ') and (s[i-1]<>' ')));
//вывод слова s[i] slovo
  write(s[i]);
  end;
//vivod kolichestva slov
Write('Слов: ',k);
end.