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

Программа которая рассчитывает количество слов в предложении паскаль

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

Var
S:string;
N,i:integer;
Begin
WriteLn(Введи предложение);
ReadLn(S);
N:=0;
For i:= 2 to Length(S)-1 do
 if (S[i]= )and(S[i-1]<> )and(S[i+1]<> ) then N:=N+1;
Write(N+1)
End.