begin sum:=0; beg:=1; readln(str); for i:=1 to Length(str) do if str[i]='+' then begin sum:=sum+StrToInt(Copy(str, beg, i-beg)); beg:=i+1; end; sum:=sum+StrToInt(Copy(str, beg, Length(str))); writeln(sum); end.
Var i, j, k : integer; a : array [0..9,0..9] of char; procedure U(i,j:integer); var c : char; begin c:=a[i,j]; a[i,j]:=' '; if (c='W')and(a[i+1,j]='B') then U(i+1,j); if (c='B')and(a[i+1,j]='W') then U(i+1,j); if (c='W')and(a[i-1,j]='B') then U(i-1,j); if (c='B')and(a[i-1,j]='W') then U(i-1,j); if (c='W')and(a[i,j+1]='B') then U(i,j+1); if (c='B')and(a[i,j+1]='W') then U(i,j+1); if (c='W')and(a[i,j-1]='B') then U(i,j-1); if (c='B')and(a[i,j-1]='W') then U(i,j-1); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i:=1 to 8 do begin for j:=1 to 8 do read(a[i,j]); readln end; for i:=1 to 8 do begin a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' ' end; k:=0; for i:=1 to 8 do for j:=1 to 8 do if a[i,j]<>' ' then begin k:=k+1; U(i,j) end; write(k); close(output) end.
Если электричество пробежало по электрону дальше - значит в ячейке ноль, если не пробежало - значит, единица. Значение ячейки (бита) зависит от того, есть ли там электрон или нет. При записи информации на флешку, миллионы контроллеров заряжают и разряжают миллионы электронов. Все описанные процессы происходят на чипе памяти. Однако у типичной флешки имеется также разъем USB типа - "папа". Еще имеется контроллер, обеспечивающий взаимопонимание между накопителем и компьютером. Для этого у него есть небольшой процессор и крохотное количество оперативной памяти. Оперативная память представляет собой "буфер" для перекачки информации.Ячейка флэш-памяти не содержит конденсаторов как большинство других типов полупроводниковой памяти. Это всего лишь один транзистор особой архитектуры хранить информацию.
Ячейки флеш-памяти отлично масштабируются. Если их сделать невероятно миниатюрными, тогда на небольшой по размерам носитель можно будет записывать большое количество данных. А при нынешнем уровне компьютеризации и развитии технологий, транзисторы можно делать чрезвычайно маленькими.Как вы вероятно знаете, вся цифровая информация хранится в мегабайтах. Один мегабайт - это 1 024 килобайт. В одном килобайте 1024 байта. Один байт - это 8 бит. Наши компьютеры понимают только двоичную систему - либо ноль, либо единица. Ноль и единица именуются как "бит".Бит занимает одну ячейку флеш-памяти. Главным в этом механизме является электрон. Когда usb flash включается в компьютер, по ней пробегает электричество, забегая во все ячейки. Каждая ячейка состоит из источника и канала. Если контроллер с электричества зарядит электрон, тогда ток попадет из источника в канал и, как по мостику, ток побежит по электрону дальше.
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.