OJ Board

thanks, I have got 'Accepted'.
It's only the output that was wrong.

[pascal] program p294; var i,j,n,x,y,xtemp,ytemp,max,now,num:longint; divisor:array[1..100000] of byte; function scan(x:longint):longint; var i,sum,limit:longint; begin i:=2; limit:=trunc(sqrt(x))+1; while x>1 do begin while frac(x/i)<0.00000001 do begin x:=x div i; inc(divisor ); end; inc(i); if i>...

[pascal] program p369; var m,n,i:longint; r:real; begin while not eof(input) do begin readln(m,n); if (m=0) and (n=0) then exit; r:=1; if n>m-n then n:=m-n; for i:=2 to n do r:=r/i; for i:=m downto m-n+1 do r:=r*i; writeln(m,' things taken ',n:0,' at a time is ',round(r):0,' exactly.'); end; end. [/...

thanks for your comments.

i don't understand why my program is wrong please give any comments .... how about the output format for a very big number (with exponential ?) [pascal] program p495 (input, output); var n,j :integer; x,y,z,temp:extended; begin while not eof(input) do begin readln(n); x:=1; y:=1; if n=0 then z:=0 el...

i don't understand why my program is wrong please give any comments .... [pascal] program p612 (input,output); type dnaset=array[1..50] of string; dnacountset=array[1..50] of integer; var m,n,j,k:integer; ch:string; dnacount:dnacountset; dna:dnaset; procedure ssort(z:integer;dna:dnaset); var n,j,k :...

I don't understand why my program is wrong please give any comments.... [pascal] program p229 (input,output); type aset=array[1..50] of integer; var a:aset; n,nn,train,j,k:integer; function bsort(var a:aset) :integer; var j,k,temp,n:integer; begin n:=0; for j:=nn downto 2 do for k:=1 to nn-1 do if a...