Online Judge | Problem Set | Authors | Online Contests | User | ||||||
---|---|---|---|---|---|---|---|---|---|---|
Web Board Home Page F.A.Qs Statistical Charts | Current Contest Past Contests Scheduled Contests Award Contest |
请大家帮我看看,为什么WAprogram trunc123(input,output); const pr=3.1415926535897932384626; var i,j,k,n,m:longint; x,y,r:real; begin readln(n); for i:=1 to n do begin readln(x,y); r:=x*x+y*y; r:=r*pr/2; m:=trunc(r/50)+1; writeln('Property ',i,': This property will begin eroding in year ',m,'.'); end; writeln('ENG OF OUTPUT.'); end. Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator