1. 

   W.A.S.P. New Member

   Дано предложение . В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют ) . Определить количество словв предложении .

    

   W.A.S.P., 17 янв 2010

   #1
2. 

   pasikulator New Member

   var
   s:string;
   i,count:integer;
   begin
   count:=0;
   readln (s);
   for i:=1 to length(s) do
   if (s=' ') then count:=count+1;
   writeln ('В данной строке ',count+1,' слов');
   end.
   

    

   pasikulator, 17 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня