Var v:array [0..100000] of integer; a:array [0..100,0..100000] of integer; m,p,k,w:integer;
procedure step(z,ma:integer);beginif z>0 then if a[z,ma]<>a[z-1,ma] then if a[z-1,ma]<a[z-1,ma-v[z]]+v[z] then begin step(z-1,ma-v[z]); write(v[z],' '); end else step(z-1,ma) else step(z-1,ma); end;
beginread(k);for p:=1 to k do begin read(v[p]); end;read(w);for p:=1 to k do begin for m:=1 to w do begin if m-v[p]>=0 then a[p,m]:=(max(a[p-1,m-v[p]]+v[p],a[p-1,m])) else a[p,m]:=a[p-1,m]; end; end;if a[k,w]=w then step(k,w) else writeln('No solution');end.
1)16*256*80*64*2=41943040 байт41943040 байт=41943040/1024 Кбайт=40960 Кбайт=40960/1024 Мбайт=40 Мбайт1 Гбайт-40 Мбайт=1024 Мбайт-40 Мбайт=984 Мбайт
<span>2)54272000бит/1024000бит=53 сек
лови...)</span>
Дано:
V*4 с=608 Мб
K=2048*1024
I=8 бит=1 байт
Найти:
частота — ?
Решение:
V=608 : 4=152 Мб (за 1 сек) * 1024=155648 Кб * 1024=159 383 552 байт
V=K*I*частота
частота=V/(K*I)
частота=159 383 552/(2048*1024*1)=76 Гц
Ответ: 76 Гц
В Norton Commander меню вызывается клавишей F9, основное меню имеет две панели "Левую" и "Правую", в общей сложности они имеют 26 команд.
Var
i, x, sum, n: integer;
begin
read(n);
for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;
writeln(sum);
end.