Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
trik
0 / 0 / 0
Регистрация: 16.10.2013
Сообщений: 8
#1

Получить все трехзначные натуральные числа, сумма цифр которых равна n - Pascal ABC

18.10.2013, 21:06. Просмотров 597. Ответов 3
Метки нет (Все метки)

дано натуральное число <=27 найти все трёхзначные числа сумма цифр которых равна n не используя mod и div помогите пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2013, 21:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить все трехзначные натуральные числа, сумма цифр которых равна n (Pascal ABC):

Все трехзначные натуральные числа, сумма цифр которых равна М
С клавиатуры вводится натуральное число М (М&lt;27). Найдите и выведите на экран...

Найдите и выведите на экран все трехзначные натуральные числа, сумма цифр которых равна М
С клавиатуры вводится натуральное число М (М&lt;27). Найдите и выведите на экран...

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

Найти все трехзначные числа, сумма цифр которых равна N
Итак,мне нужно решить задачку,не используя массивы(mass,array ну и т.п)а просто...

Найти все трехзначные числа, сумма цифр которых равна N
Дано натуральное число n. Найти все трехзначные числа, сумма цифр которых равна...

Вывести на экран все трехзначные числа, сумма цифр которых равна N
10. Вывести на экран все трехзначные числа, сумма цифр которых равна N....

3
Folko
265 / 253 / 27
Регистрация: 27.09.2013
Сообщений: 877
Записей в блоге: 1
18.10.2013, 22:35 #2
trik, 3 вложенных цикла от 1 до 10, и в условии проверять i+j+k = x (это введенное число). Примерно так
0
PiKa_PeR
0 / 0 / 1
Регистрация: 16.11.2016
Сообщений: 6
16.11.2016, 15:42 #3
Pascal
1
2
3
4
5
6
7
8
var a1, a2, a3, n:longint;
begin
readln(n);
for a1:=1 to 9 do
 for a2:=1 to 9 do
  for a3:= 1 to 9 do
  if a1+a2+a3=n then writeln (a1*100+a2*10+a3);
end.
0
Cyborg Drone
Модератор
5251 / 3118 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
21.11.2016, 22:53 #4
PiKa_PeR, у Вас учитываются не все числа. И незачем формировать число, если оно не запоминается, достаточно просто его напечатать.
Pascal
5
6
7
 for a2 := 0 to 9 do
  for a3 := 0 to 9 do
  if a1+a2+a3 = n then writeln (a1, a2, a3);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 22:53
Привет! Вот еще темы с решениями:

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

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

Найти все трехзначные числа, сумма цифр которых равна данному целому числу
Ребят помогите решить 3 задачки. Вроде простые , но я не умею на паскале задачи...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru