Сумма чисел в строке

[microlab]

Составить программу, которая вычислит сумму чисел во введенном предложении

[Serge_Bliznykov]

Вы, наверное, наивно считаете, что форум, это такой магический автоматический решатель студенческих задач, да?!
И достаточно написать сюда условие задачи, чтобы форум сам быстренько эту задачу решил...

[microlab]

А ессли нет других условий где бы их взять то ????

[Hacker19_90]

sum := 0;
for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then
        sum := sum + (ord(s[i]) - 48); //ну или Val заюзать

минус в том что если будет введено число 123, то в данном случае сумма будет выглядеть как 1 + 2 + 3
но так ведь можно и доработать! правильно?
Причём процедуру Val вам будет сподручнее использовать

[Валлидол]

Код

uses Crt;
var s:string;
    st:string;
    i:byte;
    sum,code,k:integer;
Begin
ClrScr;
 writeln('Введите текст');
 readln(s);

if s='' then begin 
         writeln('нет текста');
         exit;
         end;
s:=s+' ';
st:=''; 
sum:=0;

for i:=1 to length(s) do 
 if s[i] in ['0'..'9'] then
                         st:=st+s[i]
                        else begin
                               val(st,k,code);
                               sum:=sum+k;
                               st:='';
                              end;
             
writeln('Сумма чисел в тексте:',sum);               
Readln;
End.

код реализован для ЦЕЛЫХ чисел

[microlab]

Спасибо за помошь начинаюшемму студенту