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

INPUT "vvedite summu ", q
DO
    n = n + 1
    q = q - n
LOOP UNTIL q <= 0
PRINT n

Тестирование выполнено в программе QB64 ( Скачать )