Задача на паскале

[Zeir]

Почему когда я отправляю на проверку эту задачу мне пишет что превышено максимальное время работы програмы?

program pr_1;
uses crt;
var sum:longint;
i,n:integer;
begin
clrscr;
writeln('vvedit chislo n=');
repeat
readln(n);
until n<=10000;
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln('sum=',sum);
readln;
end.

Подсчитать сумму чисел от 1 до N включительно.

Входные данные

На вход подается число N, по абсолютной величине не превышает 10 000.

Выходные данные

Единственное число - искомая сумма чисел от 1 до N включительно.

Пример
Входные данные Выходные данные
5 15

[Mad_Cat]

repeat
readln(n);
until n<=10000;

вот это убери
и где ты видел чтобы на олимпиадах задачи решались в лоб????

var s:real;
n:integer;
begin
readln(n);
s:=n(n+1)/2
writeln(s:0:1);
end.

вот эту отправь

[Zeir]

Сообщение от Mad_Cat

repeat
readln(n);
until n<=10000;

вот это убери
и где ты видел чтобы на олимпиадах задачи решались в лоб????

var s:real;
n:integer;
begin
readln(n);
s:=n(n+1)/2
writeln(s:0:1);
end.

вот эту отправь

var s:real;
n:integer;
begin
readln(n);
s:=n(n+1)/2
writeln(s:0:1);
end
в этой пишет неправильный ответ, в задаче нужно что бы n не больше 10000

[Stilet]

вот это убери

Почему убери? Это всего лишь отсекает возможность вводить число за пределами 10 000

я отправляю на проверку эту задачу мне пишет что превышено максимальное время работы програмы?

В каком смысле?

[Mad_Cat]

В каком смысле?

да пацан с нашей помощью очки на какой то олимпиаде зарабатывает

в этой пишет неправильный ответ, в задаче нужно что бы n не больше 10000

да не поэтому он так пишет
меняй вот эти 2 строки и засылай)

s:longint;

s:=round(n(n+1)) div 2;
write(s);

[Stilet]

меняй вот эти 2 строки и засылай)

Этак он досрочно медаль получит ))))))))))))))))
Нельзя, студенты не должны легких путей искать. )))