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

dashani7562 dashani7562    3   05.07.2019 08:40    0

Ответы
flak202 flak202  02.10.2020 20:34
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика