Татьяна Ларина,читала очередной французский роман, подсчитала сумму номеров прочитанных страниц. Обозначим эту сумму Q. Написать программу, определяющую номер страницы. (PascalABCNET)

Если что-то не читается, обновите страницу

Или у Вас по принципу читаю страницу 6, когда прочитаю её, тогда добавлю 6 к сумме?

Именно так. Если Татьяна читает страницу 6, то сумма прочитанных страниц = 1+2+3+4+5 = 15.

Ну это как интерпретировать вопрос. Я, к примеру, включаю в количество прочитанных тут страницу, на которой нахожусь. Мало ли, может я её прочитал уже, но просто не перевернул?

Интерпретировать, действительно, можно по-разному. Мне захотелось именно так сделать. А что именно требуется в задаче - пусть автор вопроса решает.

var q,i,s:integer;beginreadln(q);s:=0;i:=0;while s<q do begin i:=i+1; s:=s+i; end;if s=q then writeln('Страница = ',i+1)else writeln('Ошибка ввода');end.Пример:5Страница = 6