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

Question

Информатика

Константиныч

10 февраля, 19:48

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

+1

Ответы (2)

Знаете ответ на вопрос?

Геруха · Answer 1

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 ('количество пробелов в строке = = > ', b) ;

end.

Станимир · Answer 2

Var s:string; n, k:integer;

begin

s: = 'Проба она проходит первый раз и можем выполняться'; / / несколько раз';

n:=1;

while n>0 do begin

n: = pos (' ', s) ; k:=k + 1; delete (s, 1, n) ; end;

write (k-1) ; end.