Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке. (программа Паскаль)

Вопрос посетителя

Дана строка, заканчивающаяся точкой. Подсчитать, сколько слов в строке.

Ответ эксперта

program stroki;
var s:string;
    k,i:integer;
begin write(‘Vvedite stroku:’);
      readln(s);
      s:=’ ‘+s;
      for i:=1 to length(s) do
        if s[i]=’ ‘ then k:=k+1;
      writeln(k);
end.

Скачать ответРаспечатать решение