Обсуждение @ 1068. Сумма @ Timus Online Judge

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

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

Обсуждение задачи 1068. Сумма

Гг Lovi rechenie [1] // Задача 1068. Сумма 16 окт 2008 16:15

var N,S: integer;
begin
readln(N);
if N<=1 then
begin
while n<=1 do
begin
s:=n+s;
n:=n+1;
end;
end
else
begin
while n>=1 do
begin
s:=s+n;
n:=n-1;
end;
end;
writeln(S);
end.
Pascal
Zaranie po>I<@luicta

Pavel Otchertsov Re: Lovi rechenie // Задача 1068. Сумма 7 ноя 2008 23:31

You can solve it with more faster algorithm.
Just use the sum of arithmetic progression =)