[Серег@]

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

[friz]

Код:

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 никакого значения.
попробуй так:

Код:

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)+' пробелов';

[Серег@]

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