Автор EvilDevil задал вопрос в разделе Другие языки и технологии
Помогите написать программку в Паскале... и получил лучший ответ
Ответ от Vxcbh[гуру]
Оператора string нет. string - зарезервированное слово - объявление типа "строка".Можно так:program WordsCnt;uses Crt;var St: string[255]; Cnt: Integer;beginReadLn(St);Cnt:= 1;if Length(St) > 0 then beginwhile Pos(' ', St) <> 0 do begin if Pos(' ', St) <> 0 then Inc(Cnt); // здесь можно, конечно, добавить проверки на завершающий пробел, на лидирующий пробел и на то, что в строке только один пробел. St[Pos(' ', St)]:= '%'; end;WriteLn('Количество слов в строке: ', Cnt);end elseWriteLn('Строка пуста! ');while not KeyPressed do;end.
Ответ от Alaksiej Safonaŭ[гуру]
Ответ видится так: слова это последовательность букв и цифр разделенных пробелами, то есть нужно удалить все начальные пробелы до знака далее нужно подсчитать пробелы:function wc( const str: String ) : Integer;var P: Integer; L: Intege
Ответ видится так: слова это последовательность букв и цифр разделенных пробелами, то есть нужно удалить все начальные пробелы до знака далее нужно подсчитать пробелы:function wc( const str: String ) : Integer;var P: Integer; L: Intege
Ответ от ---[гуру]
Ответ от Поклонник Мыла[гуру]
Оператора string в паскале не существует, следовательно поставленная задача неразрешима.
Оператора string в паскале не существует, следовательно поставленная задача неразрешима.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите написать программку в Паскале...