Обсуждение @ 1490. Огненный круг @ Timus Online Judge

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

вернуться в форум

Обсуждение задачи 1490. Огненный круг

PLEASE HELP ME ANYBODY (give me test on 99999)

Послано tarashi (Kutaisi SU3) 19 сен 2008 17:51

var n,x,r:integer;
    y2,y,s:int64;

BEGIN
s:=0;
read (n);
r:=n;

for x:=0 to n-1 do
begin
   y:=trunc(sqrt(r-x)*sqrt(r+x));

     if y*y<>(r-x)*(r+x) then y:=y+1;

    s:=s+y;
end;

writeln (s*4);
END.

Re: PLEASE HELP ME ANYBODY (give me test on 99999)

Послано Sasha Bar [TNU] 4 май 2009 18:15

r = 99999
result = 31415696920