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

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 i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.