Ctrl+A-Выделить док. целиком
Ctrl+C-Копировать выдел. файл
Ctrl+V-Вставить из буфера обмена копирован./вырезан. фрагмент
Ctrl+X-Вырезать выдел. фрагмент
Var
s: string;
i, n, k: integer;
begin
writeln('Введите текст');
readln(s);
n := Length(s);
k := 0;
for i := 1 to n do
if s[i] = ' ' then k := k + 1;
writeln('Количество пробелов в тексте- ', k)
end.
Тестовый пример:
Введите текст
А роза упала на лапу Азора, а тут ДВА пробела , а тут вообще пять: : Все!
Количество пробелов в тексте- 21
Бл*, весь код коту под хвост
нечего не выдаст...
Бывают, информационные модели, и натурные ( материальные )
П0 0 П1 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] ИП1 + С/П