Составить программу в pascalопределить сколько слов в тексте ( слово - это набор символов,разделенных пробелом )
Составить программу в pascalопределить сколько слов в тексте ( слово - это набор символов,разделенных пробелом )
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountWords;
var
text: string;
wordsCounter: integer;
begin
wordsCounter := 0;
writeln('Введите текст: ');
readln(text);
for i := 1 to length(text) do
begin
if text[i] = ' ' then
wordsCounter := wordsCounter + 1;
end;
wordsCounter := wordsCounter + 1;
writeln('Количество слов в тексте: ', wordsCounter);
end.