[Pascal] сумма чисел входящих в строку

[Рамик]

подсскажите как сделать что бы он суммировал не только однозначные числа?

program pr_1_v1;
uses crt;
var st:string;
    sum,i,n:integer;
    kod:integer;
begin
clrscr;
writeln('vvedite stroku:');
readln(st);
sum:=0;
for i:=1 to length(st) do begin
        val(st[i],n,kod);
        if kod=0 then
        sum:=sum+n;
        end;
writeln('summa vseh chisel=',sum);
end.

[Stilet]

Так подойдет?

   var e,s:string;sum,k,i,w:integer;
begin
 s:='15 hfhf 59fl3';
 i:=1;while (i<=length(s)) do begin
  e:='';while s[i] in ['0'..'9'] do begin e:=e+s[i];inc(i);end;
  k:=0;
  if e<>'' then val(e,k,w);
  sum:=sum+k;
  inc(i);
 end;
 writeln(sum);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Utkin]

Здесь цикл сканирует посимвольно. Тебе нужно изменить условие поиска. Для этого можно использовать функцию Pos - она ищет подстроку в указанной строке. То есть допустим если числа разделены пробелами, то нужно задать Pos(' ', st). Тогда она вернет тебе позицию первого пробела, ну и так далее.

Сорри, Я начал писать до поста Стилета

[Рамик]

Сообщение от Stilet

Так подойдет?

   var e,s:string;sum,k,i,w:integer;
begin
 s:='15 hfhf 59fl3';
 i:=1;while (i<=length(s)) do begin
  e:='';while s[i] in ['0'..'9'] do begin e:=e+s[i];inc(i);end;
  k:=0;
  if e<>'' then val(e,k,w);
  sum:=sum+k;
  inc(i);
 end;
 writeln(sum);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

можно коментарии к действиям?

[Stilet]

Utkin

Лишнее мнение идти в правильный туннель со светом в конце не помеха страждушему

можно коментарии к действиям?

А чего тут коментировать?
Я в цикле проходу посимвольно.
Как только встречаю символ-цифру запускаю внутренний цикл который собирает все идущие после цифры до первой буквы, после чего собранное превращаю в число и суммирую.
И так далее.

[Рамик]

.
спасибо!