vj1229 分解因式

Vj1229 分解因式

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //ö¾Ù //ÿ¸öÊýµÄÒò×Ó¸öÊý ÊÇËùÓÐÖÊÒò×ÓÖ¸Êý +1 ²¢Ïà³Ë / const maxn=20000; var k,ans:integer; procedure init; begin readln(k); end; function calc(x:integer):integer; var i,t,cnt:integer; begin t:=1; for i:=2 to trunc(sqrt(x)) do if x mod i=0 then begin cnt:=1; while x mod i=0 do begin
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.

Ask a homework question - tutors are online