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

Обсуждение задачи 1209. 1, 10, 100, 1000...

why CRASH
Послано Oleg 20 ноя 2002 13:14
const eps=0.000001;
var j:real;
    i,n:longint;
    r:real;
begin
 read(n);
 for i:=1 to n do
 begin
  read(j);
  r:=sqrt(-7+8*j);
  r:=round(r)-r;
  if abs(r)<eps then write('1 ') else write('0 ');
 end;
end.
AC
Послано Oleg 20 ноя 2002 16:17
Re: why CRASH
Послано Oleg Sh 24 авг 2005 16:18
Use i:real;

ILI U menja prokatila? if undestand :)