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

Написать программу в паскале,подсчитывающую сколько слов в заданной фразе(предложении)

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

Program slovo;const symbols = [ , ;, :, -,?,!,.,,];var s:string;    i:byte;    n:integer;begin  writeln(введите строку);  readln(s);  for i:=1 to length(s) do begin    if (s[i] in Symbols) and not (s[i-1] in Symbols) then n:=n+1;  end;  writeln(в строке ,n, слов);  readln;end.