ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1001. Обратный корень

María Fernanda Borge What's wrong, the judge throws me wrong answer [2] // Задача 1001. Обратный корень 18 окт 2009 01:30
program reverseroot;


const
   max=10000000;

type
  tipovec=array[1..max] of double;

var
  i:int64;
  n:double;
  vec:tipovec;
  j:longint;
begin
i:=1;
   while not(eof) do
   begin
      read(n);
      vec[i]:=sqrt(n);
      inc(i);
   end;
   for j:=i-1 downto 1 do
   begin
      writeln(vec[j]:0:4);
   end;
end.
icanwin No subject // Задача 1001. Обратный корень 18 окт 2009 13:40


Edited by author 18.10.2009 13:59
i think you should check for EOF after a read attempt, not before it