Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Вводится последовательность символов, оканчивающаяся точкой. Сосчитать количество слов.В Pascal.

Ответ оставил Гость

Var
 s,q:string;
 i,n,j,m,k,l:longint;
begin
 Readln(s);
 m:=0;
 s:= +s+ ;
 for i:=1 to length(s) do  if s[i]<> then
  begin
   if s[i-1]= then l:=i;
   if s[i+1]= then
   begin
      inc(m);
    end;
   end;
 Writeln(m);
end.