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
Спасибо
Ответ дал: Гость
2^i = 64
i = 6 бит потребуется на 1 символ
256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст
196608 бит: 8 = 24576 байт : 1024 = 24 килобайт
ответ. 24 килобайт
Ответ дал: Гость
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Популярные вопросы