input"vvedite summu ",q
do
n=n+1
q=q-n
loop until q<=0
print n
Похожие записи/страницы:
- Татьяна Ларина, читая очередной французский роман, подсчитала сумму номеров прочитанных страниц. Обозначили эту…
- Написать программу , определяющую число слов в строке.Одно слово от другого отделяется пробелом - QBasic(Бейсик)
- Написать программу, которая считает сумму цифр, введенного с клавиатуры числа - QBasic(Бейсик)
- Задано натуральное число N (1<=N<=9999) требуется написать программу, определяющую последнюю не нулевую…
- Для данного одномерного массива укажите индексы тех его элементов, сумма которых равна заданному числу- QBasic(Бейсик)
- Разработать программу определяющую сумму и произведение элементов, расположенных на побочных диагоналях двух…