vj1129 产生数

vj1129...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //´«µÝ±Õ°ü+³Ë·¨ÔÀí //Ëã³öÿ¸öÊýÄܱä³ÉµÄÊýµÄ¸öÊý ÔÙ°ÑÿλµÄÊýµÄ±ä»»´ÎÊý³ËÆðÀ´ / //³£ÓõÄÑ»·±äÁ¿²»Òªµ±¶ÁÈë±äÁ¿ » const maxn=9; var n,k:integer; ans:extended; s:string; g:array[0. .maxn,0. .maxn] of boolean; tot:array[0. .maxn] of integer; procedure init; var i,x,y:integer; ch:char; begin read(ch); while ch<>' ' do begin inc(n); s:=s+ch; read(ch); end; read(k); for i:=1 to k do begin
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

vj1129...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online