• дана знаковая строка произвольной длины определить число пробелов в строке.

Ответы 1

  • var  i,n:integer;  s:string;begin  Write('Введите строку: '); Readln(s);  n:=0;  for i:=1 to length(s) do    if s[i]=' ' then n:=n+1;  Writeln('Количество пробелов равно ',n)end.Тестовое решение:Введите строку: Пример текстовой    с т р  ок и   !!!Количество пробелов равно 13
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years