|
|
back to boardwhy my program doesnot work on test#2???? Posted by tvm 21 Mar 2010 05:16 why my program doesnot work on WA#2???? var a:array [1..10000] of integer; i,k,s:integer; begin k:=0; s:=1; for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do s:=s*a[i]; for i:=1 to s do if s mod i=0 then k:=k+1; if (k>0)and (k<10) then writeln(k); end. Edited by author 21.03.2010 05:16 |
|
|