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

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

1001 - Pascal
Послано Dior 7 май 2014 21:09

var
n:integer;

begin
while not seekeof do
      begin
       read(n);
       write(sqrt(n):0:4);

      end;
end.

Wrong answer, but why???