Найти кол-во чисел в строке.

[Айдар]

Помогите решить задачу для зачёта.
Найти кол-во чисел в строке. (например я пошёл гулять в 6 и пришёл 8, ответ 2 числа).

[Stilet]

В цикле по строке
if s[i-тый элемент строки] in ['0'..'9'] then увеличиваем счетчик колва цифр.

[Айдар]

а можно код программы, я так понимаю тут надо чё то изменить и все?

var
s,tmp:string;
i,sum,num:byte;
cod:integer;
begin
readln(s);
sum := 0;
for i:=1 to length(s)+1 do begin
if (s[i] in ['0'..'9']) then
tmp := tmp + s[i]
else begin
val(tmp,num,cod);
sum := sum + num;
tmp := '';
end;
end;

writeln(sum);
readln;
end.

[Stilet]

Могу предложить вот так:

 var s:string;i,c:integer;
begin
 s:='например я пошёл 5 гулять в  и пришёл 8, ответ 2 числа)';
 c:=0;
 i:=1; while i<length(s) do begin
  while not (s[i] in ['0'..'9'])and(i<length(s)) do inc(i);
  while not (s[i] in ['0'..'9'])and(i<length(s)) do inc(i);
  inc(c);
  inc(i);
 end;
 write(c-1);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Anatole]

Stilet
Ваша программа посчситает количество цифр в строке, а не чисел. Количество чисел необходимр считать так (относится только к целым)

var s:string;i,c:integer;
begin
 s:='например я пошёл 5 гулять в  и пришёл 10, ответ 2 числа)';
 c:=0;
 i:=1; 
 while i<length(s) do 
   if (s[i] in ['0'..'9']) then 
    begin
    inc(c);
    while (s[i] in ['0'..'9']) and (i<length(s)) do inc(i);
    end else inc(i);  
 write(c);{фраза содержит всё-таки 3 числа} readln;
end

[Serge_Bliznykov]

нехорошо сформулированная задача, не очень хороший пример, и, как результат, решение, которое ВОЗМОЖНО не решает задачу...
В строке надо посчитать количество чисел или цифр?
Это принципиально разные вещи. Если чисел - то какие могут быть числа?
Короче, прежде, чем программировать, надо ответить на вопрос "кол-во чисел в строке" для следующих примеров:
a) Я пошёл гулять в 10 часов и вернулся после принятия 500 граммов.

b) Я купил на рынке 12 килограммов картошки и 1.5 килограмма сыра.

[Stilet]

Anatole

Прдон,очепятался. Второй While нужно писать без слова NOT