Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 17.10.2012
Сообщений: 5

Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N

17.10.2012, 20:49. Показов 2214. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста решить задачу
"определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N"
заранее спасибо.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.10.2012, 20:49
Ответы с готовыми решениями:

Определить количество трехзначных чисел, сумма цифр которых равна данному натуральному N
Определить количество трехзначных чисел, сумма цифр которых равна данному натуральному N Пожалуйста опытные программисты, помогите решить...

Найти количество трехзначных чисел, сумма цифр которых равна a, а само число заканчивается цифрой b
Числа a и b – случайные числа, а из интервала [1; 28), b из интервала [0,10). Спасибо.

Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному
2. Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу.

4
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
17.10.2012, 23:47
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
INPUT n
FOR i=100 TO 999
IF i MOD 10+i\10 MOD 10+i\100=n THEN k=k+1
NEXT
PRINT k
2
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
08.06.2016, 14:52
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Программа проверена

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE FUNCTION f! (m!)
CLS
CLEAR , , 24000
DIM SHARED n
INPUT "N = "; n
PRINT f(999)
END
 
FUNCTION f (m)
   IF m < 100 THEN EXIT FUNCTION
   IF m MOD 10 + m \ 100 + m \ 10 MOD 10 = n THEN k = 1
   f = f(m - 1) + k
END FUNCTION
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
08.06.2016, 22:29
geh, если Вы выложили свою версию программы после моей, следовательно Вы считаете её лучше предыдущей. Хотелось бы узнать, в чём эта лучшесть? В том, что вместо простой программы Вы написали сложную? Ну, это позёрство, не более. Мы все умеем писать навороченные вещи, но гениальность, как известно, в простоте...
1
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
09.06.2016, 08:19
Глубоко уважаемый кот Бегемот
я не считаю свою программу лучше вашей. Наоборот,
Ваша программа образец для подражания! Однако
я написал и свой вариант программы. Именно ВАРИАНТ.
Ибо считаю, что у людей должен быть Выбор. И пусть
они сделают свой выбор в пользу Вашей программы.
примечание
Я не склонен драматизировать ситуацию и быть вам
соперником. Нам нечего делить. И чем больше вариантов,
тем лучше для для Бейсика и его друзей.
Ваш geh
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.06.2016, 08:19
Помогаю со студенческими работами здесь

Напечатать все четырехзначные числа, сумма цифр которых равна введенному числу
Написать программу, которая напечатает все четырехзначные числа, сумма цифр которых равна введенному числу.

Для данного одномерного массива укажите индексы тех его элементов, сумма которых равна заданному числу (если такие есть)
Для данного одномерного массива укажите индексы тех его элементов, сумма которых равна заданному числу (если такие есть) помогите...

Из чисел от 10 до 99 вывести те, сумма цифр которых равна S
Из чисел от 10 до 99 вывести те, сумма цифр которых равна S.

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. Спасибо.

Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
сост прогу Определить кол-во трехзначных натуральных чисел, сумма цифр которых равна заданному числу N заранее спс огромное


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru