Информатика: Ввести строку, посчитать количество слов (язык-паскаль_)

asflower

04.04.2023 14:39

Информатика

Есть ответ 👍

Ввести строку, посчитать количество слов (язык-паскаль_)

138

350

Посмотреть ответы 2

Ответы на вопрос:

matyusha47

Информатика

4,6(47 оценок)

Var s: string; i,k: integer; nc: boolean; begin readln(s); for i: =1 to length(s) do begin if ( (i=1) or (s[i-1]=' ') ) and (s[i]< > ' ') then nc: =true; if (nc=true) and ( (s[i]=' ') or (i=length(s)) then begin nc: =false; inc(k); end; end; writeln(k); end.