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

Question

Информатика

Августина

28 марта, 10:59

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ефимий · Answer 1

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.