|
|
back to boardbut until giving error Posted by zzzlll 19 Jan 2007 11:25 var a:array[1..1000] of real; i,k:longint; begin while not eof do begin k:=k+1; read(a[k]); end; for i:=k downto 1 do writeln(sqrt(a[i]):0:4); end. Edited by author 20.01.2007 15:19 Edited by author 20.01.2007 17:42 Re: please look where is my error?? replace eof to seekeof Just read the problem one more time (-) Re: please look where is my error?? replace eof to seekeof Also compare your answer with sample and find difference:) Re: but until giving error Posted by Yogesh 20 Jan 2007 22:06 sollamudiyaathuta madaiya,sonki Re: but until giving error Posted by zzzlll 23 Jan 2007 12:09 i don't understand what you say??? |
|
|