Discussion @ 1001. Reverse Root @ Timus Online Judge

IlushaMax Pascal:Correct Answer for new [2] // Problem 1001. Reverse Root 7 Mar 2016 17:15

var
   a:array [1..200000] of int64;
   n,i: integer;
begin
{$IFNDEF ONLINE_JUDGE}

{$ENDIF}
   while not seekeof do
   begin
     inc(i);
     read(a[i]);
   end;
   for n:=i downto 1 do
   begin
     writeln(sqrt(a[n]):4:4);
   end;
{$IFNDEF ONLINE_JUDGE}

{$ENDIF}
end.

calmbear26 Re: Pascal:Correct Answer for new [1] // Problem 1001. Reverse Root 18 Mar 2016 17:06

bug in this line ( while not seekeof do )
look this http://pascal.net.ru/SeekEof

IlushaMax Re: Pascal:Correct Answer for new // Problem 1001. Reverse Root 22 Mar 2016 15:26

see this http://acm.timus.ru/help.aspx?topic=pascal

Discussion of Problem 1001. Reverse Root