Написать программу на паскале которая определяет, каков процент пробелов во введенном тексте.

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.