Программа которая рассчитывает количество слов в предложении паскаль
Программа которая рассчитывает количество слов в предложении паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы