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.
В 1804 году Жозеф Мари Жаккар<span> разработал ткацкий станок, в котором вышиваемый узор определялся </span>перфокартами<span>. Серия карт могла быть заменена, и смена узора не требовала изменений в механике станка. Это было важной вехой в истории программирования.</span>
const a=1; d=1; n=100;
var s:real;
begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза