program temp;
var
  a:array [1..1000000] of qword;
  i,m:longint;
begin
  while not eof do begin
    inc(i);
    read(a[i]);
  end;
  for m:=i downto 1 do writeln(sqrt(a[m]):0:4);
end.

What's the problem?
为何#1就不过？

Edited by author 05.05.2010 19:51

oh,i see
thanks cqyzzzl
use 'seekeof' instead of 'eof'
see
http://acm.timus.ru/forum/thread.aspx?space=1&num=1001&id=23490&upd=633934535278966250