Почему на сайте https://acmp.ru печатает "Wrong answer "?

Среда PascalABC.NET
#1

Вместо того чтобы делать уроки, Вася смотрел футбольный матч и записывал счет, который показывался на табло, после каждого забитого гола. Например, у него могла получиться такая запись: 1:0, 1:1, 1:2, 2:2, 2:3. После этого он сложил все записанные числа: 1+0+1+1+1+2+2+2+2+3=15.

По сумме, получившейся у Васи, определите, сколько всего мячей было забито в матче.

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

В первой строке входного файла INPUT.TXT записано одно целое неотрицательное число, не превосходящее 1000 – сумма, полученная Васей.

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

В выходной файл OUTPUT.TXT выведите одно число – общее количество забитых мячей.

program Iq9; var a,b,count:integer; begin write (‘Общее количество забитых мячей:’); read(b); a:=1; while (b>0) do begin b:=b-a; count:=count+1; a:=a+1 end; if (b=0) then writeln(‘В матче было забито ‘,count,’ голов’) else writeln(‘Введённое число неправильное.’); end.

#2

Но вы же выводите не одно число а ещё и много букв :smiley:

И дайте ссылку на саму задачу а не сайт в целом.

#3

https://acmp.ru/asp/do/index.asp?main=task&id_course=3&id_section=22&id_topic=84&id_problem=437

#4

Ну ок, так а зачем вы выписываете текст? На сколько я понимаю - проверяет машина, ей текст незачем, в примере вывода явно написано что надо только число.

#5

При большом входном значении ваша программа будет долго считать! Ну и у них там версия PABC.NET 3.2. Так что, можно не писать на Turbo Pascal…

У меня приняли вот такой ответ:

begin
  Print(trunc((sqrt(1+8*ReadInteger)-1)/2));
end.