Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.70/47: Рейтинг темы: голосов - 47, средняя оценка - 4.70
0 / 0 / 0
Регистрация: 08.06.2012
Сообщений: 8

Из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры

08.06.2012, 21:08. Показов 8899. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
8)из чисел от 100 до 999 вывести те, сумма цифр которых числу N, введенному с клавиатуры.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.06.2012, 21:08
Ответы с готовыми решениями:

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

Вывести все трехзначные числа, для которых сумма цифр равна введённому числу
Решите пожалуйста срочно задачу!

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

1
Лучи добра
 Аватар для Das Gespenst
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
09.06.2012, 02:35
Лучший ответ Сообщение было отмечено Inqu1sItor как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z;
var n,s,a,a1,i:integer;
begin
     writeln('Введите число N');
     readln(n);
     writeln('Трехзначные числа, сумма цифр которых равна числу N');
     for i:=100 to 999 do
     begin
     s:=0;
     a:=i;
     while a<>0 do
           begin
                a1:=a mod 10;
                s:=s+a1;
                a1:=a div 10;
                a:=a1;
           end;
     if s=n
        then
            writeln(i);
     end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.06.2012, 02:35
Помогаю со студенческими работами здесь

Найти все целые числа в интервале от 100 до 999, сумма цифр которых больше произведения этих цифр
помогите решить задачу

Вывести на экран все числа от 100 до 10000, сумма цифр которых равна заданному числу
Нужна помощь в решении задач. Циклы 1. Вывести на экран все числа от 100 до 10000, сумма цифр которых равна заданному числу. ...

Среди всех n-значных чисел указать те, сумма цифр которых равна заданному числу k. (k и n вводить с клавиатуры.)
Помогите написать программу. Срочно))):)

Определить: Кратно ли сумма цифр заданного 4-хзначного числа числу b, введенному с клавиатуры...
Дано четырехзначное число. Определить: Кратно ли сумма его цифр числу b, введенному с клавиатуры; Больше ли сумма его...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru