Непрравильный вывод ответа

[danil123]

Здравствуйте!
Пытаюсь решить задачу http://acm.timus.ru/problem.aspx?space=1&num=1001

var i:int64;
s,st:string;
begin
while not eof do
readln(s);
i:=length(s);
while i>=1 do
begin
while (s[i]<>' ') do
begin
insert(s[i],st,1);
dec(i);
if i=0 then 
break;
end;
dec(i);
writeln(sqrt(strtoint(st)));
st:='';
end;
end.

Ввод-Вывод
В первой строке то, что я ввожу, во всех остальных результат.
Непонятно, откуда взялись второе и третье значение.

Без

While not eof

у меня работает, но при отправке пишет "Wrong answer"

[BDA]

Попробуйте:

procedure get();
var
  k: int64;
begin
  if not eof then
  begin
    read(k);
    get();
    writeln(sqrt(k):0:4);
  end;
end;

begin
  get();
end.

[danil123]

BDA, возможно я неправильно понял ваш код, но нужно выводить в обратном порядке.

[BDA]

А Вы проверьте
У меня в обратном выводит

[danil123]

отправил ваш вариант, падает на первом тесте

[BDA]

Топорненько, но все тесты прошла:

var
  a: array[1..132000] of int64;
  i: int64;

begin
  i := 0;
  while not seekeof do
  begin
    inc(i);
    read(a[i]);
  end;
  while i > 0 do
  begin
    writeln(sqrt(a[i]):0:4);
    dec(i);
  end;
end.