Discussion @ 1001. Reverse Root @ Timus Online Judge

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???

Discussion of Problem 1001. Reverse Root