program example; var str: string;i, count: integer;begin write('Ваша строка: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; writeln('Количество слов: ', count); readln;end.
program example;
var str: string;i, count: integer;begin write('Ваша строка: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; writeln('Количество слов: ', count); readln;end.