С клавиатуру вводится строчка. Найти в ней количество пробелов

С клавиатуру вводится строчка. Найти в ней количество пробелов

Задать свой вопрос
2 ответа
Var a,b,c:integer;   
 d:string;   
begin;
b:=0;writeln('введите строчку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==gt; ', b);
end.
Var s:string;n,k:integer;
begin
s:= 'Проба она проходит первый раз и можем выполняться';// несколько раз';
n:=1;
while ngt;0 do begin
n:= pos(' ',s);k:=k +1;delete(s,1,n);end;
write(k-1);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт