Discussion @ 1001. Reverse Root @ Timus Online Judge

Pascal:Correct Answer for new

Posted by IlushaMax 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.

Re: Pascal:Correct Answer for new

Posted by calmbear26 18 Mar 2016 17:06

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

Re: Pascal:Correct Answer for new

Posted by IlushaMax 22 Mar 2016 15:26

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

Discussion of Problem 1001. Reverse Root