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

Question

Информатика

Ира

18 января, 19:03

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

+3

Ответы (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.