Дан текст, в котором есть цифры, найти сумму всех этих цифр

var digits: set of '0'..'9'; st: string; i,s,t,t1: integer; begin  read(st)  for i : = 1 to length(st) do begin      if not (st[i] in digits) then begin          s: =s+t;           t: =0;       end      else begin           t1: =integer(st[i]);           t: =t*10+t1;       end;   end;   writeln('s=',s)end.

на руби куда легчеst=gets.to_sst=st.gsub(/\d+/,',')a=(st.split(","))s=0a.each_index do |i|      a[i]=a[i].to_i      s+=a[i]endp ap s

папа принес домой одного птенца. лена насыпала ему 5 крошек. но бедняга даже не посмотрел на еду. девочка вынесла клетку на улицу и поставила у порога. слетелись  10 воробьёв. вдруг одна воробьиха взяла в клюв крошку и подлетела к птенцу.

на второй день лена бежала из школы. она спешила накормить воробышка. воробьиха уже сидела на форточке.

когда птенец подрос, лена открыла клетку. воробьиха позвала птенца. он выпорхнул в форточку и улетел.

1+5+10+1+2=19

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.