[Серег@]

Подсчитать количество пробелов в введенной строке.
Подскажите как решить эту задачку?

[friz]

Код:

1 2 3 4 5 6 7 8 9 10

var s:string;     //(введенная строка)      i:integer;     k:integer; //(количество пробелов ) .................... k:=0; for i:=1 to length(s) do begin if s[i]=' ' then inc(k); end; label1.caption:='Всего '+inttostr(k)+' пробелов';

[Серег@]

А не подскажите почему всегда выводится что ВСЕГО 0 ПРОБЕЛОВ?

[friz]

все должно работать... один вариант что ты не присвоил переменной s никакого значения.
попробуй так:

Код:

1 2 3 4 5 6 7 8 9 10 11

var s:string;     //(введенная строка)      i:integer;     k:integer; //(количество пробелов ) .................... k:=0; s:='я стану супер мега программером :)'; for i:=1 to length(s) do begin if s[i]=' ' then inc(k); end; label1.caption:='Всего '+inttostr(k)+' пробелов';

[Серег@]

Спасибо за помощь, я все сделал