1951 г - введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.
Ответ дал: Гость
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
Популярные вопросы