ENG  RUSTimus Online Judge
Online Judge
Problems
Authors
Online contests
About Online Judge
Frequently asked questions
Site news
Webboard
Links
Problem set
Submit solution
Judge status
Guide
Register
Update your info
Authors ranklist
Current contest
Scheduled contests
Past contests
Rules
back to board

Discussion of Problem 1001. Reverse Root

but 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??
Posted by KIRILL(ArcSTU) 19 Jan 2007 15:05
replace eof to seekeof
Just read the problem one more time (-)
Posted by Dmitry 'Diman_YES' Kovalioff 19 Jan 2007 17:44
Re: please look where is my error??
Posted by KIRILL(ArcSTU) 19 Jan 2007 18:11
KIRILL(ArcSTU) wrote 19 January 2007 15:05
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???