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

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

1) для моделирования своих проектов 2) для хранения информации о пациентах 3) для создания презентаций к урокам, для хранения информации об учениках 4) для связи с коллегами через интернет 5) для хранения и учета информации о бюджете 6) ком/спозитор? ? 7) для хранения информации о встречах, делах начальника 8) для быстрого написания текста, хранения его 9) для создания картин на нем, для поиска вдохновения 10) для создания новых моделей, поиска через интернет чего-то нового и хранения это на пк

Unit unit1;   название модуля interface  ключевое слово interface начинает определение внешнего интерфейса модуля. uses  ключевое слово uses определяет список одного или более модулей, которые используются текущим модулем, программой или библиотекой. type  ключевое слово type является частью delphi оно позволяет создать новые категории (типы) переменной и процесса. tform1 = class(tform)  ключевое слово class это центральная часть объектно-ориентированного кода. объявление класса имеет следующее типичное описание : private определения данных/методов локальные для этого модуля protected определения данных/методов, локальных для этого класса + потомки public определения данных/методов пригодных для использования всеми объектами этого класса  published внешне общественные определения edit1: tedit; компонент delphi представляет собой однострочное текстовое поле, служащее для ввода данных пользователем label1: tlabel; компонент который позволяет отображать текст button1: tbutton; кнопка procedure button1click(sender: tobject); процедура которая сработает если кликнуть на кнопке var  ключевое слово var используется, чтобы начать раздел определения переменных.  form1: tform1;   определяем переменную типа tform1   смотри выше implementation  ключевое слово implementation  начинает активный раздел кода модуля - где объявления интерфейса реализовываются. {$r *.dfm}//подключение .dfm файла (файл с данными о визуальных объектах) procedure tform1.button1click(sender: tobject);   не посредственно сама процедура обработки события нажатия кнопки varx,y,z,p: real;   объявляем переменные вещественного типа real begin  начало кода процедуры x: =strtofloat(edit1.text); y: =strtofloat(edit2.text); z: =strtofloat(edit3.text);   считываем текст из однострочное текстовое поле, strtofloat – пытаемся преобразовать в вещественное значение p: =(3*x*(exp(3*ln(+(sqrt(y+sqr(x)*z))+ln(z)); p: =p/(abs(x-y+sqr(z))+(sin(x)*sin(; производим расчеты label5.font.color: =clblue; label5.caption: ='результат: '+#13+'p='+ floattostr(5); делаем цвет текста голубой, и отображаем значение цифры 5, скорее всего наверное имелось введу «p»,     #13 это начать с новой строчки – как будто нажали клавишу enter end; конец процедуры кнопки end. конец модуля